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Two 

Distinguished 
Products for 
PDP-11... 

And now VAX 
Users 


INTACT 

MAPS” 


Interactive 

Data Base Management 

INTAC is a new concept for data 
storage and retrieval that features 
an easy-to-use question and 
answer format, built-in edit rules, 
multi-key ISAM data access, inter¬ 
active inquiry and a unique report 
generator. 


Financial 

Modeling 

MAPS, recognized worldwide for 
over five years as a leader in finan¬ 
cial modeling and reporting, is 
used to construct budgets, finan¬ 
cial forecasts, consolidations and 
“what if” analyses. 


Ross Systems, with over seven years of 
proven capability, now offers these two 
products to current and prospective 
PDP-11 and VAX users. INTAC and 
MAPS enable business managers to 
produce instant reports themselves, and 
relieve DP managers from the pressures 
of special requests. 

Ross Systems offers these management 
tools on our timesharing service, for 
license on existing computers and as 
part of a complete, in-house timesharing 
installation. 


Call us collect for more information. 



ross systems 

c o r p o r * r e d 


1900 Embarcadero Road, Suite 208, Palo Alto, CA 94303 


(415) 856-1100 • Other offices in San Francisco and Los Angeles 
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When low cost and reliability 
are your print-out needs. 

Southern Systems has the answer. 


Call SSI for versatile, simple-to- 
operate 200, 300 and 600 I pm 
printer systems. 

Economical purchase price is 
just the start of your savings with 
SSI's 200 Ipm matrix or 300 and 
600 Ipm band printer systems. 

The 300 and 600 Ipm bands, 
the lowest cost-of-ownership 
printers in their performance 
range, give you easy-to-change 
character font bands, clean 
cassette ribbons, quiet operation 
and up to five clear copies. 

The 200 Ipm matrix, at half 
the price of the 300 Ipm band, gives you two-thirds the performance, with 
128 characters in condensed, expanded or standard print and six clear copies. 

These versatile, economical printer systems are unbelievably maintenance- 
free. Compatible with DEC, Data General, HP, Perkin-Elmer and most 
other computers. Parallel or serial interfacing. 30-day delivery. Nationwide 
full service. Unmatched printer and interface expertise. 

Call SSI, the leader in add-on printer system technology, for low cost, 
high performance printer systems ... at 200, 300 or 600 lines per minute. 


Southern Systems 

The Printer System Problem-Solvers 

2841 Cypress Creek Road 
Fort Lauderdale, Florida 33309 
(305) 979-1000; (800) 327-5602 
Telex 522135 



r--------------------—------—n 

I Please send information about: 

j DThe 200 Ipm matrix; and/or the E3300 or C3600 Ipm band. 

I I'd also like to know about your high speed printers: 

| [3900 Ipm band . . . Our newest high-performance product. 

I □ 300/600/900 Ipm drum. [31500 Ipm charaband. 
j 0600, 1000 or 1200 Ipm ChainTrain. 

I DParallel DSerial (Synchronous or asynchronous). 

I My needs are: 

I □ Immediate C33-6 months C3For Information Only. 

I My computer type is_ 

| Name_ 

j Title_ 

Company_ 

I Address_ 

| City_State_Zip- 

Telephone_ 

L..... 

























Everyday we find the pressure to 
produce is being pushed on the pro¬ 
gramming staffs around the world. 
Programmer productivity is the name 
of the game. 

Application Development is a time 
consuming process, and without the 
proper tools, even the best program¬ 
mers can get lost in the shadows. 

Amcor has the solution for the produc¬ 


tivity problem. . AM BASE, our revo¬ 
lutionary Application Development 
System and DBMS. AMBASE is 
designed to work with DEC PDP-11 
computers utilizing the RSTS/E 
operating system. 

AMBASE is helping technical staffs 
worldwide to improve their produc¬ 
tivity from 100-900%. Jobs that took 
10 days are being completed in 1 
day with AMBASE. 


Please forward information on the following systems: 


□ AMBASE 

□ Accounts Receivable 

□ Accounts Payable 

□ GUFinancial Mgt. (AMFACS) 

□ Payroll 

□ Order Processing 

□ Inventory Control 

| 1900 PLANTSIDE DRIVE □ Sales Analysis 

LOUISVILLE, KY. 40299 
| 502/491-9820 

\ _ 



Name_ 

Company _ 

Address_ 

City_ 

Telephone _ 

Computer Type 


So don t get lost in the shadows, let 
AMBASE put you out in front. 

For more information on AMBASE. 
or any of AMCOR s complete line of 
data base oriented applications, give 
us a call, or use the coupon provided 
below. 

Software for DEC 
RSTS/E Systems 

--I 


Operating System 


_P 

*DEC is a TRADEMARK of Digital Equipment Corp 
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From the editors... 

In case you haven’t noticed, the RSTS PRO 
has created a thriving new marketplace for 
software. This was one of our original 
goals, six issues ago. I would like to single 
out two of the many products that I have 
personally bought and paid for. The first is 
OMSI Sort Version 1.6. I have used OMSI 
sort since its original release as a macro 
replacement for SQWIK and MQWIK, the 
old DEC type-1 header sort. It was the best 
software buy I ever made, yielding stagger¬ 
ing reductions in run time. Version 1.6 con¬ 
tains the final additions to a fine product 
— the macro rendition of XQWIK and 
OQWIK, the extract and reordering por¬ 
tions of the sort. Amazingly fast and truly 
flexible. Bravo! 

The second entrant to my ‘Hall of 
Fame’ is a package from Software Tech¬ 
niques called DSKIT. I ordered it as soon as I 
saw the proofs of their ad in the last issue. 
To make a long story short: last week, 
using DSKIT, I created 130 accounts and 
fully extended their centered UFD’s in 
three minutes and forty seconds (a job that 
used to take four to eight hours). I then 
copied the full contents of a 300 MB RM05 
equivalent to this new well structured' 
disk in 45 minutes, optimizing clustersize 
and contiguity on the process. I (for once) 
was speechless. Software Techniques 
delivered excellent response to the few 
minor problems I unearthed in the very 
short learning process. The documentation 
is excellent. In short, this package is the 
‘final solution’ to structured disks, 
eliminating all of the time and complexity 
and reducing the job to one of the simplic¬ 
ity of a SAVRES. 

Dave Mallery 

Love at First Sight 

I’m in LOVE. Head-over-heels in love. I 
am overcome when I see the twinkle in the 
darkness, but even in the light I am over¬ 
joyed when I come into the room. Our rela¬ 
tionship has been short, but I am looking 
forward to many years of happiness. I look 
forward to that time of day when I can be 
alone, just the two of us talking to each 
other. 

Now, before I really get into trouble 
with Helen, my spouse of some years, let 
me explain that my New Love is a rather in¬ 
animate (? sometimes I wonder ?) Lovely, 
old. well cared for, rugged. PDP 11 /40 
that we plan to make over into a New, Well 
Cared for. New peripheraled, Speeded up, 
more functional. Great RSTS Machine. That 
PDP 11 /40 was built in 1973 and even has 
the old style BA-11 Box and real (!) lights 
and switches — looks like an 11 /70 if you 


don’t look too closely. No light show is evi¬ 
dent. .. no null job? . . . does any one 
know why? We don’t. 

This 11 /40 is a real story; how it was 
bought (and others rejected), how it was 
delivered, the new memory (256KB on a 
single board from Data Systems Services), 
the new disk (160MB Winchester that 
looks like two RM03's from System In¬ 
dustries), the new Tape (800/1600 of 
course) also from DSS, the new Multiplexer 
(A Dmax from Able), the new line printer 
(Southern Systems), the new cabinet 
(Surplus RCA), and others good and bad 
things. We ll tell the story in the the next 
few issues, don’t miss it. 

The RDC has invited us to visit and see 
how they do their remote diagnosis. That 
story should be ready for the next issue. 

Our VAX-SCENE has been well re¬ 
ceived and it is significantly expanded in 
this issue and will continue to get the at¬ 
tention it deserves. Lets hear it from all of 
the VAX people out there — your doing 
some neat things, tell us about them. 

If you haven’t seen the NEW RSTS 
brochure, ask your salesperson for one. 
This make RSTS seem like the up and com¬ 
ing product it is! Be sure to look closely at 
the SYSTAT...What are all those foreign(!) 
Run-Time systems? I had to go to Canada 
(see the Canadian DECUS article) to get 
one, I haven’t seen a salesperson in over a 
year. While you have the DEC rep on the 
phone ask to see the RSTS, VAX and 
RSTS/VAX performance data that is 
available from the performance group in 
Merrimack; let us know if they can’t or 
won’t get it for you — it’s got some sur¬ 
prises. 

We’re well on our way into our second 
year and it is more: more work, more fun. 
more people, more magazine. RSTS is a 
growing product and were going to grow 
along with it — keep giving us the help we 
need: more articles, more letters, more of 
you—tell a friend about RSTS and about 
the RSTS PROFESSIONAL. 

Carl Marbach 
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PDT 11/150 
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DEC PDP 11 

FAMILY OF MINI-SYSTEMS 


Hamilton Rentals 

One Penn Plaza, New York 10119 


212 - 695-1936 

TOLL FREE 800-223-2430 


Software Packages Include: 


PDP 11/23 


IMMEDIATE DELIVERY 
FROM STOCK 

ALL RENTALS INCLUDE 
MAINTENANCE. 
PURCHASE OPTION 
LEASE PLAN AVAILABLE 


LONDON 


PARIS 


DUSSELDORF 


TORONTO/CALGARY 


□ Word Processing 

□ Inventory Control 

□ Accounting Packages 

□ Information Storage 
and Retrieval 


□ Financial Reports 

□ Finite Stress Analysis 

□ Micro-Processor 
Development 

□ Commercial Graphics 
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LETTERS to the RSTS Pro... 


Dear Dave and Carl, 

In your recent report on the U.K. RSTS SIG 
Meeting you said that it was attended by people 
“from all over the U.K.” 

There were also several participants from Ire¬ 
land RSTS is alive and well over here too. 

Keep up the good work. Kind regards. 

Yours sincerely, 
David A. Reynolds 
Peat Marwick Mitchell - Dublin 

Dear Sir: 

In your editorial “Go VAX Young Man!” 
[RSTS Professional, Vol. 2, #3], you mention 
that a product which allows the PDP 11 /70clock 
rate to be raised has appeared. I am interested in 
such a product, but have been unable to find any 
information on it. 

Would you please send me the names and 
addresses of those who are marketing this 
product. 

Yours very truly, 
N. McRae 
Computer Facilities Analyst 
Hardy Associates (1978) Ltd., Canada 
Dear Mr. Mallery: 

Your article indicated that there is a “fast 
clock” available for the DEC PDP 11/70. 

I would appreciate it if you could tell me the 
manufacturer so that we can evaluate it as a 
means to increase our capacity. 

H.J. Mainwaring 
Staff Engineer, Computer Systems 
Cadillac Motor Car Division 
You can obtain a modified TIG board for the 70 
from: TIG Board, Nassau Systems, P.O. Box 
19329, Cincinnati. OH 45219. 

This is currently being tested by a major 70 user 
and the results should be in soon. 

Dear Sirs, 

I have been managing a PDP11/55 time shar¬ 
ing system running under RSTS for less than a 
year, and when I started it looked as if the system 
would need to be enhanced in the very near future 
as the response times to the users was on occa¬ 
sions completely unacceptable. There are about 
120 accounts on our system containing over 9000 
files and although some effort is being made to 
reduce these numbers, it has been difficult to do 
this since the number of people using the system 
is large, and the job mix is very varied. 

It was with great interest, therefore, that I 
attended the seminar at the Festival Hall, and I 
returned full of ideas and enthusiasm. Right, I 
would rebuild the system disk with nice contigu¬ 
ous directories. Then the trouble started. Did I 
have to run REACT to generate 124 accounts. 
No need. System functions are available to write 
a simple program to establish these the same as 
the existing disk. Now it is a bit of a fiddle to get 
the right size of file to fill the lower disk. This is 
not too difficult, however, so it is done and I start 
opening null files to fill up all the directories. 
About three in the morining I give up. It’s only 
half done and it will take all night. I realize that 
since our system requires new accounts to be 
installed fairly frequently that it is not a once only 
job. 

Thinking again I realize that a UFD fully 
extended with one null file is a fairly simple struc¬ 
ture so why not build all the UFDs into a large 
contiguous file and patch the DCN of each into 
the MFD. The file into which the directories are 
built is in [1,0] and it may be removed after the 


build by changing the link. This does not clear the 
SATT so that the directories are protected. Sur¬ 
prisingly, apart from a minor bug in the align¬ 
ment of clustersize 8 directories (the DCNs must 
be odd numbers) this worked first time and a disk 
contianing all the accounts with seven cluster 
directories was built from an initialized disk in 
about 12 minutes. 

Placed files were then transferred using PIP 
followed by a wildcard PIP of everything else. 
Unfortunately, since our system uses new files 
first all the directories were reversed, and a time 
consuming REORDR was required. 

The next time the disk was copied the new disk 
was initialized old files first, and the program 
INVERT was run to change it after the copy was 
complete. This saves the REORDR time and 
builds a better directory. Since the control file 
started the system after the copy to allow the copy 
to run unattended at night, the program 
INVERT must tell the monitor that the change 
has been made because the status bit on the disk is 
only looked at during the mount operation. 

The improvement in system performance was 
enormous. Not only the directories but all the 
other files on the new disk were physically contig¬ 
uous (or nearly so) and the disk access was 
improved by about 50%. The time for the whole 
operation was less than the BACKUP that we 
had used weekly before, and the backup disk was 
fully runnable in the event of a disaster. I subse¬ 
quently found that the retrieval of a single file 
from the old disk (using PIP) became a trivial 
operation as opposed to getting a file from a 
BACKUP set. 

I am enclosing a description of the process and 
listings of the programs involved for your infor¬ 
mation and possible publication as I think it may 
be useful to other users with similar problems. 

Yours faithfully, 
Michael J.D. Mowat, B.Sc., M.B.C.S. 
Dept, of Agriculture and Fisheries for Scotland 
P.S. Your articles on directories are very useful. 
What about something on system table contents. 
We also feel Michael’s article may be helpful to 
other users. See “All Things BRIGHT and Beau¬ 
tiful”. this issue. 

Editors, 

I have been a subscriber to your magazine for 
over a year and have found much enjoyment 
from reading the RSTS Professional. It has 
proven to be an invaluable source of information 
on the RSTS Operating System and TECO. 

Sincerely, 

John J. Walczy, Royal Oak, MI 
Dear Mrs. Noakes, 

Following your request for contributions to 
the RSTS Professional , please find enclosed list¬ 
ings and documentation for half a dozen user 
subroutines callable from Basic-Plus-2. 

1 hope someone may be able to make use of 
them — either they provide functions not availa¬ 
ble or are very much faster than those provided. 
The execution time given is for an 11/ 34A 
processor. 

May I add my thanks and praise for last 
month’s DECUS Commercial SIG meeting 
which 1 found interesting and useful [that was the 
“Dave & Carl Show” at Festival Hall]. 

Yours sincerely, 
M. A. Jackson, Nielsen Business Services 
Readers will find Mr. Jackson’s subroutines in 
this issue. ”PDP/II — UTILITIES.” 


Dear RSTS Professional: 

I would like to take a moment to thank the 
people who have written the excellent articles for 
the “RSTS Pro”. I’m sure their efforts have been 
of great use to many people. I would like to 
especially thank Scott Banks, Steve Davis, Steve 
Edwards and your own Dave Mallery and Carl 
Marbach. 

I feel we in the RSTS community have a 
responsibility to provide our peers with this type 
of information and I applaude those who have 
already done so. For my own part I am starting a 
year long series of articles on monitor internals. I 
haven’t seen anybody do anything like this yet so 
I hope it will be helpful. A copy of the first article 
is enclosed. 

Sincerely, 
Mike Mayfield 
Northwest Digital Software 
We all thank you, Mike, for your appreciation. 
We accept your offer for a series of articles on 
monitor internals, the first of which appears in 
this issue. 

Readers: Mr. Mayfield’s article is titled, 
“ RSTS/E Monitor Internals, Part 1.” 

DO YOU REMEMBER THIS? 

(Photo contest/?), RSTS Professional Vol 2, #3, 
p.75. - STILL!) 

Photo contests appear in the RSTS PROFES¬ 
SIONAL occasionally and readers have until 
publication of the next issue to submit their 
answers. We may, from time to time, limit the 
number of correct answers eligible to receive 
prizes. 

Because no one has gotten this right yet, we’ll 
save the answer ’til the next issue. Following are 
the latest silly attempts. 

“Tampa Elec. Co. truck.” 

Jeffrey Neu, New York, NY 

Wrong! 

Boys and Girls, 

(1) Your mag is getting better and more infor¬ 
mative with each issue. Keep up the goodies. 

(2) The unresolved TECO “what is it” is a 
utility-company-type “Cherry Picker”, com¬ 
monly found somewhere near the top of a pole 
(lower case, no creative ethnic slur intended). 

(3) I’ve enclosed my mailing label. Counting 
issues, I think my subscription must be about to 
expire but I need further clues. 

Bye/F, Douglas P. Herman 
Herman Management Company, Inc. 

El Cajon, CA 92021 

(1) Thank you. (However, fattery won't get you 
a T-shirt - usually!). 

(2) How TECO, Why TECO remains unresolved. 

(3) A clue follows. 

(4) 

Dave, Two of them, even (whatever they are...) 


•XGC 



—Bill, Merrimack, N.H. 


Good Grief! They’re Even Contemptibly Omni¬ 
present. 

... continued on page 95 




March 1981 oage 7 

RSTSPROFESSIONAUISTSPROFESSIONALRSTSPROFESSIONAIJ^STSPROFESSIONALRSTSPROFESSIONAIJtSTSPROFESSIONALRSTSPROFESSIONAL^ 


VAXination 

for DEC* Users. 


System Industries disk storage. For immunity 
against high prices, slow delivery and limited choice. If your VAX 11/780* is wait¬ 
ing for RPOX/RMOX drives, you stand to lose a lot more than valuable time. You stand to 
lose on price/performance, too. 

We can help. We're System Industries, the world's largest independent supplier of com¬ 
plete disk systems for DEC users. 

Add on or trade out, we'll save you big money. We've been saving DEC users 
big money on large-capacity disk storage for more than 10 years. And we've made it easy. 

We can simply add to your present disk storage. Or we can trade your RPOX/RMOX 
drive(s) for one of our superior disk systems. Whichever way you choose, you can count on 
100% software transparency. And substantial dollars saved. 

Get a wide choice, including Winchester-SMD combos. Shared data base 
with multiple CPUs . . . nonstop operation featuring multiple drives . . . one of our many 
field-proven system configurations is ideal for your VAX disk storage needs. 

We even offer Winchester-SMD combos that pack 900 Mbytes into the same floor space 
you may be using for 300 Mbytes (RM04/05). By trading your RM04/05 for our Winchester- 
SMD combo, you can net an additional 600 Mbytes. And pay no more than the cost of an 
RM04/05 from DEC. 


Worldwide service and 30-day delivery. We've built our entire business 
around fast, effective service. Beginning with responsive delivery—30 days ARO—and 
following with customized service con¬ 
tracts, we provide the support to get your j IMMUNIZATION REQUEST 
system up fast. And keep it running. 

So why wait for DEC. Take the 
System Industries VAXination today. It's 
a sure cure for slow delivery and poor 
price/performance. For de¬ 
tails, contact the sales 
office nearest you. Or 
use the coupon. 

‘DEC and VAX-11/780 are 
trademarks of Digital 
Equipment Corporation. 


Please send details, including medical case histories, on 
how your disk storage systems can provide immunity 
against: slow delivery high prices limited choice 

Name_ 


ext_ 



System ^ Industries 

525 Oakmead Parkway, P.O. Box 425 
Sunnyvale, CA 94086 


SystemJ^Flndustries 


United States: 525 Oakmead Parkway, P.O. Box 425, Sunnyvale, CA 94086, (408) 732-1650, Telex 346-459. 

Europe: System Industries (Europe), System House, Guildford Road, Woking, Surrey, GU22 7QQ, England, (048 62) 5077, Telex 859124. 
California (714) 754-6555. (213) 557-0384: Colorado (303) 741-3502; Georgia (404) 955-2252; Illinois (312) 948-9330; Massachusetts (617) 695-4022; 
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Segmenting BASIC-PLUS-2 Applications 

By Al Cini, Computer Methods Corporation 


This is first in a series of articles on analysis and design of 
BASIC-PLUS-2 Applications. 


INTRODUCTION 

The advantages of a “modular” (many parts) over a 
"monolithic" (all-one-piece) software system are, these 
days, a matter of conventional wisdom. Most of us 
somehow know we write modular programs, but few of us 
stop to reflect on how or why we do. 

Modular software system concepts are adapted from 
mechanical and electronic engineering notions, whose 
practitioners learned a long time ago how expensive “one 
big thing" can be to build, repair, and modify. In fact, while 
large-scale integration gets the credit for the third genera¬ 
tion of computers, its the shrewd packaging of these chips 
into functionally independent components, and the 
creative assembly of these components into ever- 
expanding variety of processors and peripherals, that have 
made computing the boom industry it is. 

It’s largely the same in software. Functionally indepen¬ 
dent modules allow us to work separately on different 
elements of a project, with confidence that these concep¬ 
tual "parts” will work properly together when ultimately 
assembled. Throughout all of engineering, a complete and 
cohesive design and faithful adherence to its rules during 
implementation go a long way toward taking the worry 
out of laying that last brick, soldering that last chip, and 
taskbuilding that last program. Having to tear up a routine 
because it doesn't “fit" into a system isn’t any less ex¬ 
asperating than smoking a printed circuit board in a poorly 
designed backplane, or cracking the block of an expensive 
test engine—anticipating the connections, strains, and 
pressures among the parts assures the correct integration 
of the whole, and avoids costly trips back to the drawing 
board. 


UNDERSTANDING MODULES AND MODULARITY 

In programming, a module is a group of program 
statements with the following characteristics (Myers, p. 11): 

1. The statements are contiguous (i.e., appear 
together in the program listing). 

2. The statements are bounded by identifiable 
delimiters (such as SUB/SUBEND, DEF/FNEND 
statements: note that in the case of GOSUB, 


these boundaries can be very vague). 

3. The statements are collectively referenced by a 
name (or statement number). 

4. The statements can be referenced, by the 
module name, from any other part of the 
program (a recursive module can even call itself). 

The term "module” usually evokes thoughts of ex¬ 
ternal subprograms (PL/1 procedures, FORTRAN 
subroutines), but its broad definition includes internally 
contained code sections (COBOL paragraphs, BASIC- 
PLUS functions and GOSUB-type subroutines) as well as 
complete concurrently or serially executed programs. 
Logically, software modules are the realization of our 
ability to analyze a big problem into manageable parts. 
In practical terms, software modules determine the 
feasibility of our work: we arrange them to promote 
system reliability, simplify maintenance delegate coding 
responsibility, and optimize memory utilization. 


DETERMINANTS OF •"GOOD'" SOFTWARE MODULES 

Before we go any further. I’d like to apologize for 
the inevitable use of the word "structure" in the text 
which follows. To say that "structure" in our business is 
an overworked word is to say that France is a place 
where a lot of French people live. Introduced formally 
during the late sixties, "structure” as it modified “pro¬ 
gramming" identified a coding discipline in which pro¬ 
cedural programming languages (RPG isn’t one of these; 
COBOL, BASIC, and FORTRAN are) could be organized in¬ 
to programs using combinations of three fundamental 
control mechanisms: sequence (one statement after 
another), selection (IF-THEN-ELSE), and iteration (DO- 
UNTIL, WHILE-NEXT). Structured programming stirred 
up some pseudo-controversy (GO TO statements, as it 
happens, are not included in the basic control devices), 
got lots of trade press attention, and spawned a host of 
“structured" disciplines as well as whole libraries of 
pamphlets and books on each. (A discussion of struc¬ 
tured BASIC-PLUS and BASIC-PLUS-2 programs can be 
found in RP vol. 1 no. 1). "Structure" has become an in¬ 
dustry buzzword which raises hackles, provokes debate, 
and unfortunately has come to have little useful meaning. 



This message is for Managers, Project 
Leaders, and Programming 
Supervisors who just know 
there has to be 
a better way! 



..CAN WE 
INTEREST 
YOU IN A 
NEW 
PROGRAM 
DEVELOPMENT 
CYCLE? 


BASIC-PLUS(-2) SOFTWARE ENGINEERING STRATEGIES 
A 5-day training program conducted at your site — detailing analysis, design and programming 
methods aimed at productivity-minded software engineering professionals. Costs less for a group 
of as few as five students than comparable off-site education. Study these highlights from the 
course syllabus: 

• Understanding reliability as a design objective. 

• Structured programming. 

• BASIC-PLUS(-2) language specifics. 

• Designing “from the top.” 

• Introduction to data flow analysis. 

• Hierarchy analysis. 


Transform analysis. 

Transaction analysis. 

Data base design techniques for RMS files. 
“Relational” RMS implementation. 

Elements of a RSTS software project. 
BASIC-PLUS-2 program segmentation. 



COMPUTER 

METHODS 

CORPORATION 

SKILLS DEVELOPMENT PROGRAM 
P.O. BOX 592 

MOORESTOWN , NEW JERSEY 08057 
609/778-8440 


COMPUTER 

METHODS 

CORPORATION 

I want to learn more. 

Name _ 

Title/Company_ 


SKILLS DEVELOPMENT PROGRAM 

P.O. BOX 592, MOORESTOWN, N.J. 08057 

609/778-8440 


□ Send information 
on your off-site 
training calendar. 


Phone 


□ Have someone call 


Address 


) area code 


I’m particularly interested in these training areas: 

IN A HURRY? 

- Give us a call at 

(609) 778-8400 


I 
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For our purposes, we can define “structure'' along the 
lines of its non-DP usage: a structure is a complex entity 
consisting of discrete but interrelated parts. The parts can 
be isolated and examined independently and, frequently, 
are themselves structures of smaller parts. The smallest 
possible parts in programming are sequences, which may 
appear within selection or iteration control mechanisms. 
Modules are composed of such elements, and combine with 
other modules to make programs and systems. 

The "goodness" of a module can be evaluated along 
two dimensions (after Stevens et. al.): cohesion and 
coupling (figure 1). 



FIGURE 1. Dimensions of Module Strength 


Cohesion relates to the strength of the relationship 
among the elements which comprise a module with 
respect to the function a module performs. A highly 
cohesive module is one in which the elements work 
together to contribute to the execution of a specific func¬ 
tion; an incohesive module is one in which the elements are 
assembled at random. As you might imagine, there are 
strata of modular cohesiveness along the continuum: 

1. Coincidental. When there is no functional rela¬ 
tionship among the elements in a module, we can 
say that the module is coincidentally cohesive. 
FORTRAN or BASIC-PLUS-2 programs which are 
too large to fit in memory can sometimes be 
"hacked" into overlays by randomly assigning 
program parts to subroutines; such subroutines 
are coincidentally cohesive modules. 

2. Logical. Modules whose components are similar 
with respect to the work they do, but which do not 
contribute to the execution of a specific function, 
are logically cohesive. For example, including all 
READ statements in a READ subroutine, or 
building a subroutine which edits all social security, 
phone, and zip code numbers, are instances of 
logical modularity. "ON ERROR GO TO 19000" 
essentially invokes a logical module whose job is to 
"handle all errors." 

3. Temporal. Like logically bound modules, tempor¬ 


ally bound modules consist of elements which 
perform similar services. In addition, however, 
such elements in temporally cohesive modules are 
related by the time when their services are called 
for within a program. Housekeeping procedures 
like "initialization”, "termination”, and "clean-up” 
routines are examples of temporally cohesive 
modules. 

4. Functional. A functionally cohesive module is one 
in which all constituent elements contribute to the 
execution of a single function. The function, 
further, is keyed to an operation within the overall 
application; it is not a computer function (read, or 
write), but an application function (accept 
telephone number, compute overtime pay). 
Functional cohesion is the strongest form of 
intramodular relationship. 


In discussing functional modules, analogies with 
mathematical functions are frequently drawn. In 
mathematics, "Y = F(X)" represents a mapping of a domain 
of parametric inputs (X) onto a range of outputs (Y) ac¬ 
cording to a set of transformation rules (Fj. Likewise, a 
computer system transforms a set of input data into a re¬ 
quired set of output data via a precisely defined series of 
procedures. A functional module is one which performs one 
specific function against a set of input data, producing a 
precisely determined set of output data. 

Coupling describes the devices by which a calling pro¬ 
gram communicates with a called module. In general, low 
coupling—in which the connection is minimal and 
isolated—is better than high coupling—in which the con¬ 
nection is complicated and diffuse. 

The discrete argument list (such as that between a 
calling program and a separately compiled FORTRAN or 
BASIC-PLUS-2 subprogram) represents the lowest form of 
coupling mechanism, because it provides a simple interface 
between program components which is clearly iden¬ 
tifiable in the listings. A functional module which com¬ 
municates via an argument list can be removed from a 
system and tested independently without any special con¬ 
sideration. 

Named COMMON areas (available in FORTRAN and 
BASIC-PLUS-2 environments) offer a more complicated in¬ 
terface (the relationship between a COM or MAP and its 
host program/called subprograms is not clear in the 
listings), but implementation problems like limits on the 
size of argument lists make them necessary. 

Blank COMMON areas are treacherously easy ways of 
hooking two programs together in a hurry, but extremely 
complicated to sort out during maintenance. They should 
be avoided. 

Data reference coupling—when a module directly 
references a data element within its calling program 
without going through the argument list—is the only way 
to connect a calling BP2 program with an internal function 
or GOSUB subroutine (in DEF/FNEND, the argument list, 
which is read-only within the function, is of limited value). 
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In this case, a “conceptual" list of data items passed be¬ 
tween caller and called must be Kept in the programmer's 
head and documented in comments, since it doesn't appear 
in the listing. 

Code coupling—when a module executes statements 
in its caller or vice-versa except through the normal 
call/return devices—is the highest form of coupling and 
the source of the worst kinds of maintenance headaches. 
GOSUB subroutines and COBOL paragraphs chould be clear¬ 
ly delimited within the program, and should NEVER branch 
outside their boundaries. 


STRUCTURED DESIGN. 

There are several approaches to “structured design" in 
the literature these days, all of which offer a different way 
of representing the relationship among calling and called 
modules in a system. We can represent a "hierarchy" of 
functions and sub-functions pictorially using a hierarchy 
chart (figure 2). In such a chart, calling programs are ar¬ 
ranged in super-ordinate positions with respect to called 
sub-programs, and the functional "parts explosion” of an 
application becomes evident. 



FIGURE 2. Hierarchy Chart 


For example, let's build an interactive display program 
which accepts a telephone number from a CRT, then 
displays either the name/address of the telephone owner 
or a "no such phone number" message (figure 3). 

The hierarchy chart for our hypothetical phone inquiry 
system shows that we've refined the overall phone inquiry 
job into four sub-functions: accept a phone number from 
the terminal; look for the phone number in a file; display 
phone information; and display error message. Each of 
these "modules" represents an independently program¬ 
mable/testable function. The numbering scheme in the 
hierarchy chart is patterned after IBM "HIPO” documen¬ 
tation standards, and may be replaced by program names 
or any other unique identifier. 

The Get Phone Number module (2.0) accepts no 
arguments from its caller (in fact, certain environment- 


specific arguments, such as logical units numbers, might 
need to be passed—we've omitted them from this func¬ 
tional diagram) and returns either a collected phone 
number or a flag which signals that the operator is fin¬ 
ished. The "finish” flag can be set by typing escape or 
CTRL/Z or a null phone number; in any case, it’s important 
to note that the decision about what to do when the flag is 
raised is the responsibility of the caller (1.0), which will ex¬ 
ecute the functions on level 1 iteratively until then (see the 
program listings in figure 4). 



2.0 3.0 4.0 5.0 


LEVEL 1 


ARGUMENTS: 


IN 

OUT 

2.0 - 

PHONE NUMBER, 

ALL FINISHED FLAG 

3.0 PHONE 

NUMBER 

PHONE RECORD*. 

ERROR FLAG 

4.0 PHONE 

RECORD* 

— 

5.0 ERROR 

MESSAGE 

— 


•NOTE: This argument is passed via a named common (i.e. MAP) area. 


FIGURE 3. Phone Inquiry System Hierarchy Chart 


The Lookup Phone Number module (3.0) accepts a 
phone number from the caller, and looks for it in a phone 
number file (this is just a GET statement with some error 
handling using BP2 and RMS). If it finds it, it returns a 
record containing information about the phone number ac¬ 
count. If not, it raises an error flag. Again, it is the respon¬ 
sibility of module 1.0 to interpret and deal with the error 
flag. In this case, the caller decides whether to call module 
4.0 (Display the Record) or 5.0 (Display Error) based on in¬ 
formation returned by 3.0. 

Inspecting the listings, you’ll find that 2.0, 4.0, and 
5.0 call screen formatting functions which do not appear 
on the hierarchy chart. Screen formatting routines, and 
other utility service routines which are frequently called at 
the lower hierarchy levels are really separate "support 
hierarchies" which can be documented separately (RMS 
routines are a good example of a support hierarchy; such 
routines are excellent candidates for overlay co-trees. 
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10 1 MODULE 1.0 - PHONE INQUIRY SYSTEM 

1000 COPEN FILES> 

1500 MAP (PHONE) PH.PHONE.NO$ = 10%, PH.NAME $ = 40% 

2000 CALL GETPHN (PHONE.NO$, ALL.FINISHED.FLAG%) & 

\ UNTIL ALL.FINISHED.FLAG% & 

\ CALL LOOKUP (PH.PHONE.NO$. ERROR.FLAG%) & 

\ IF ERROR.FLAG% THEN 

CALL ERRDIS (ERT$(ERROR.FLAG%)) & 

ELSE & 

CALL PHNDIS & 

1 ENDIF. & 

1 

2090 CALL GETPHN (PHONE.NO$, ALL.FINISHED.FLAG%) & 

\ NEXT & 

! 

32767 END & 

I 

10 SUB GETPHN (PHONE.NO$, ALL.DONE.FLAG%) & 

! 

1000 CALL CRTPUT (1%, 10%, "PHONE#:") & 

\ CALL CRTGET (PHONE.NO$, 10%) & 

\ ALL.DONE.FLAG% = PHONE.NO$ = CHR$(27%) & 

\ PHONE.NO$ = CVT$$(PHONE.NO$, 4%) & 

\ SUBEXIT & 

I 

32767 SUBEND & 

1 

10 SUB LOOKUP (PHONE.NO$, ERR.FLAG %) & 

1 

1000 ON ERROR GO TO 1090 & 

\ GET #1%, KEY #0% EQ PHONE.NO$ & 

\ ERR.FLAG% =0% & 

\ GO TO 1099 & 

! 

1090 ERR.FLAG% = ERR & 

\ RESUME 1099 & 

! 

1099 ON ERROR GO TO 0 & 

\ SUBEXIT & 

i 

32767 SUBEND & 

1 

10 SUB PHNDIS & 

1 

1500 MAP (PHONE) PH.PHONE.NO$ = 10%, PH.NAME $ = 40% & 

! 

2000 CALL CRTPUT (5%, 10%, "PHONE#" + PH.PHONE.NO$) & 

\ CALL CRTPUT (6%, 10%, "OWNER:" + PH.NAME $) & 

\ SUBEXIT & 

I 

32767 SUBEND & 

1 

10 SUB ERRDIS (ERR.MSG$) & 

1 

1000 CALL CRTPUT (5%, 10%, "ERROR:" + ERR.MSG$) & 

\ SLEEP 2% & 

\ SUBEXIT & 

1 

32767 SUBEND & 

1 


(Note the CRTPUT subroutine accepts a line and column CRT cursor 
position, and a text string to display. The CRTGET subroutine 
accepts into a character string variable a field of specified 
length from the CRT). 

FIGURE 4. Program Listings 


which is a topic for a future article). The listings also show 
that the contents of any flag variables are never assumed: 
that is. all flags are explicitly set or cleared within the 
module whose function determines the value of the flag. A 
flag variable should never be assumed to be initially 
zero/non-zero, and it should never be necessary to initialize 
a flag you expect back from a subprogram before calling 
the subprogram. 


THE EFFECTS OF FUNCTIONAL MODULARITY ON SYSTEM 
CHARACTERISTICS. 


A system which is refined into functional modules is 
less likely to fail during integration testing (since the in¬ 
tegration testing is built into the design), more readily 
adapted as user needs change (the functions of each 
module don't chnage, but new ones may be added and 
called from superordinate modules to handle new re¬ 
quests). and more readily repaired after a failure (fault 
isolation is keyed directly to the function which is per¬ 
formed incorrectly, and the failing software module can be 
removed and tested/debugged independently of the rest 
of the system). In addition, functionally modular systems 
tend to be more available (unrelated parts of the system 
can be kept in service while other parts are repaired) and 
efficient (the hierarchy chart is a different way of express¬ 
ing the ODL file; overlays are a design product rather than 
an after-the-fact hatchet job). 
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DO YOU HAVE A HARD TIME 


FORTRAN 

PROVING YOUR BILLS TO YOUR PDP-11 USERS? 


PAYROLL 

The Billings 11 Program From Mark Ops Gives You: 


package 

• Session by Session Accounting 


SOURCE, COMMAND FILES and 

• Variable Time of Day Pricing Schemes 


DOCUMENTATION for a COMPLETE 

• Bulk Rate Storage and Block by Block Pricing 

• Summaries by Session Identification (15 chars) 


SYSTEM with FIVE SPECIAL DEDUCTION, 

• Crash and Error Recovery 


CHECK WRITING, and REPORT 

• Surcharges for Special Software 


GENERATION. 

Fully Supported — Installation Time about 1 Hour 

Call Tom Courtney (617) 266-1930 for a set of 


(Sample State Income Tax Module included.) 

report samples or write to: 


GOLDEN TRIANGLE COMPUTERS 

Maj^^pe 636 Beacon Street 

Boston, MA. 02215 


Phone 713/883-4588 


Box 1866, Orange, TX 77630 





Don't connect remote 
terminals to your 
Unibus*-based 
computer 


UNTIL YOU'VE READ ABOUT DCAS SYSTEM 205 


UNIBUS-INTERFACE STATISTICAL MULTIPLEXOR. 


A DZ11 emulator and stat mux in one. 

That’s what DCA’s System 205 gives you. In fact, a 
single DCA 205 acts as a host-end multiplexor for 
PDP-11, VAX or 2020 computers while eliminating 
up to 16 DZ11 modules! 

Supports up to 128 remote terminals. 

With a 205 and another DCA statistical multiplexor 
at the remote end, you can support up to 128 remote 
asynchronous terminals. Any DZlTs already in use 
for remote-site service can be transferred to local 
service. 



V—O H 115 


An easily-affordable 
point-to-point 
datacomm network. 


Requires just a single Unibus slot. 

That’s right, the 2C)5 only uses one Unibus hex slot, 
freeing up from three to fifteen additional slots. 
Costly and unsightly cables are eliminated, too. 

Superb response time. 

The 205 is, in effect, a DZ11 and statistical multi¬ 
plexor in one integrated unit. So the character delay 
that normally occurs between a DZ11 and a multi¬ 
plexor is eliminated. Result: Your terminal users will 
enjoy a crisper echo. 

Statistical multiplexing. 

Our 205 gives you all the benefits of DCA’s 
statistical multiplexing, including full ARQ error 
control that maintains data integrity, network trans¬ 
parency, reduced CPU overhead — and more. 

Multipoint multiplexing. 

This isn’t a promise, it’s a fact: DCA’s customers 
have been multidropping several remote terminal 
locations to a single telephone line since 1979. And 
multipoint multiplexing with the 205 lets you enjoy 



Multipoint multiplexing lowers 
costs dramatically. 

I 105 II 105 || 105 1 


the lowest cost communications possible from 
Unibus-based DEC computers. 

Reliable, proven performance. 

Like our other statistical multiplexors, the 205 is a 
field-proven, reliable system. In 1974, DCA intro¬ 
duced statistical multiplexing — we’ve been the 
technological leader ever since! 

Unparalleled growth potential. 

For networks that are bound to grow, DCA is the 
clear-cut choice. Because complete system compat¬ 
ibility lets you start with a 205 today, and grow into a 
larger, more powerful network tomorrow. And DCA 
users enjoy the lowest-cost network growth in the 
industry! 



~loB~~ll 1Q5 IHoT 


9 9 6 
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r " 




Any terminal user can access 
any host in the network. 


o-GlEN H a>a T 


Excellent cost efficiency. 

There is no better value for DEC users — the 205 will 
dramatically reduce your datacomm costs while 
providing high throughput and reliable operation. 
Interested? Send in the coupon or call DCA at 
404/448-1400 today. 

!- 1 

I □ Send me more information on DC As System 205. 

| □ Please have a sales representative call. 

I Name_ I 

Title_ I 

. Company_ 



Digital Communications Associates, Inc. 
Dept. S-2 135 Technology Park/Atlanta 
Norcross, GA 30092 


Address_ 

City_State_Zip 


Telephone 

i_ 


(Area) 


(Number) 


(Ext.) 


J 


ENGINEERED 
TO EXPAND_ 


* (Jnibus, DEC, DZ11, PDP-11, VAX and 2020 are trademarks of Digital Equipment Corp. 
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DEAR 

RSTS 

MAN: 



Send questions to: DEAR RSTS MAN, P.O. 
Box 361, Fort Washington, PA 19034. 

DEAR RSTS MAN: Perhaps you can explain 
the whys and wherefores of the drop/regain 
temporary privileges SYS call particularly as 
they are used by $QUE and $ATPK when both 
are protected <232>. 

I have had 2 problems — one with $QUE, 
the other with $ATPK. 

$QUE — Trying to queue a job from a program 
using the method given in the Systems User 
Guide [QUE.11 User’s Guide, RSTS Profes¬ 
sional, Vol. 2, # 4], QUE “bombed" with a “Pro¬ 
tection Violation at line 1040” error message. 
The particular line was the one opening 
$QUEUE.SYS for read access. That statement 
was preceeded by the SYS call trying to 
"regain" its temporarily dropped privileges. 
$QUEUE.SYS had a protection code of <60 > 
at the time but why does that make a differ¬ 
ence to a program with privileges. — The error 
did not happen if my calling program was itself 
privileged. 

$ATPK — Trying to perform the contents of an 
indirect command file using $ATPK. I also 
chained to it from a user program. Its code 
causes it to drop its privileges temporarily — 
read Monitor tables I and II — regain its privi¬ 
leges and perform several PEEK functions. Of 
course, it too died when executing the first 
PEEK even though it had allegedly regained its 
privileges. However, it works if called as a CCL 
and also works if the calling program is 
privileged. 

I have performed some of these tests on 
two other machines — one running Release 
7.0 and one running Release 6C — results 
were the same on all machines. 

What’s going on — HELP! 

Mike Farrell 

Dear Mike: Old RSTS adage: “When you 
chain from non-privilege to a privileged pro¬ 
gram at a line number, the privileged program 
permanently drops privilege. ” Be glad that it 
does! That’s why CCLs have ;PRIV in their 
definitions. 

DEAR RSTS MAN: Regarding your answer 
to ‘Frozen Solid,’ I’ve had the same problem of 
two programs in DIBOL UPDATE mode lock¬ 
ing each other—and themselves—out of a 
record. I work on a PDP-11/70 using 6C; the 
friend who introduced me to RSTS PROFES¬ 
SIONAL has also experienced the problem 
under 7.0. 

The solution you gave may work in 
BASIC-PLUS, but it fails in DIBOL. In DIBOL, 
one may access records that cross block or 
cluster boundaries, which means that a lock 
on one record may in fact lock two blocks. 
The second program may access the first 
block properly but find the second locked; 
when it goes back to get the record again, it 
finds the first block locked—by its read the 
first time through. 

The addition of one line of code, how¬ 
ever, frees things up. The following is our 
standard solution to the problem (minus our 
own external subroutines, which add nothing 
to the understanding of the situation): 


GOTO GTREC1 
GTREC0, OFFERROR 

XCALL ERROR (ERN.ERL) 

IF (ERN.NE.40) GOTO BOMB 
UNLOCK CHAN 

SLEEP TIME 


GTREC1, ONERROR GTREC0 

READ (CHAN.RCRD.NDX) 
OFFERROR 


JUMP OVER ERROR ROUTINE AND GET RECORD 
TURN OFF THE ERROR TRAP 
WHAT ERROR OCCURRED? 

PERMIT ONLY RECORD LOCKED' 

UNLOCK THE RECORD AFTER ATTEMPTED READ, 
THUS PERMITTING ACCESS ON NEXT TRY 
ADJUST TIME DEPENDING ON THE FILE AND 
THE FUNCTION - WE USUALLY USE 1 SEC 
- AND LOOP BACK TO THE READ 
SET THE ERROR TRAP 

RANDOM-ACCESS READ FOR RECORD NO. NDX 
TURN OFF THE ERROR TRAP AND PROCEED 


Obviously, the ‘GTREC0’ error handling routine can be modified to deal with any other errors the 
user may want to permit. ‘BOMB’, of course, is a bomb-out routine that would close any open files, re¬ 
port the error, and get out, leaving some poor programmer to try to figure out what went wrong. 

We’ve found that adding the UNLOCK CHAN instruction handles the problem adequately in a 
number of DIBOL shops, even in the presence of the phantom priority booster. 

What it doesn’t handle is another DIBOL problem involving the UPDATE mode. In several of our 
relative files, we’ve been able to READ the final record successfully but have been unable to WRITE 
it back. We suspect the problem occurs when the final record coincides with a cluster boundary, but 
haven’t investigated it further; as standard practice, we simply create an extra record in every relative 
file and never use it. Do you know why this happens, and is there any more elegant solution than our 
very practical one? Very truly yours, Phil Anthony, Programmer, Joy Shops Inc. 

Readers, DEC?? 9 


How to count 
your chickens 
before they 
hatch. 


Surprises can be expensive. Even good news 

can cost money if your company is not prepared for it. 

With financial modeling you can avoid surprises 
and plan calmly for whatever the future has in store. 

FINAR is the latest financial analysis and reporting 
system. It will help you plan: 

■ Budgets ■ Project evaluation 

■ Cash flow ■ Forecasts 

■ Capital investment ■ Consolidation 

All you need is a DEC PDP-11 with RSTS or a VAX-11, 
and FINAR—the Financial Analysis and Reporting Language. 
If you’d like to know how to count your 
chickens before they hatch, call or write: 

Finar Systems Limited 
6000 E. Evans, Suite 2-300 
Denver, CO 80222 • ( 303 ) 758-7561 

New York • ( 212 ) 222-2784 
Chicago • ( 312 ) 876-1081 
Houston • ( 713 ) 960-0848 
San Francisco • ( 415 ) 956-1178 
Toronto • ( 416 ) 245-8473 

FINAR 
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Points of Interest 

By Wilf Forrow, Schroder Life Group, Portsmouth POl 2AW 


TERMINAL PRINTERS 

RSTS normally outputs data quite happily to a powered down terminal. This is a problem for a printer such as an 
LA 120, especially if the spooler deletes the file thinking it was printed 0. K. Does anyone know how to prevent this 
other than by remembering to type control/S before powering the printer down? 


MAGNETIC TAPE DENSITIES 

Who thinks 1600 bit per inch is risky for secure tapes? I used to. but I have changed my mind. The U.S. National 
Bureau of Standards recommend that 800 bit per inch be avoided as this is the least reliable of all current 
densities. (Presumably, 1600 bpi is safer because of the different recording method). I still get some mag tape 
errors in my error log. but at least a full RM03 back up fits on two tapes instead of three and runs considerably 
faster. 

The bureau also recommends for long term storage without loss of data:— 

1. Purchase good quality tapes. 

2. Avoid tapes with more than 4 or 5 write skips. 

3. Avoid tapes over 5 years old. 

4. Transport and store tapes vertically in cannisters. 

5. Keep tapes clean, at constant humidity and temperature. 

DISABLING TERMINAL KEYS ON VTIOO's, LAI 20 s ETC. 

Some installations may want to disable selected keys, for example CONTROL. NO SCROLL. BACK SPACE. BREAK. 
Here is a simple method which is reliable, reversible, cheap and will not invalidate your warranty. It works by 
placing a spacer below the keytop so that the key is locked in the 'up' position (so you can immediately tell that the 
key is disabled). A section from a plastic book-binder is ideal — do not use metal in case it falls into the electronics. 

1. Obtain a length of plastic bookbinder (5/16 of an inch internal measurement, approximately). 

2. Cut and file smooth a section approximately 5/32 of an inch long, (cut several and keep the best). 

3. Gently lever off the keytop. 

4. If the plunger comes out with the keytop, remove it and put it back in the keyboard. 

5. Insert the spacer below the shoulders. It should be a tight fit. 

6. Replace keytop and check that the key is disabled. 
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And we’ll get ’em on their way to you right away — 
usually within 24 hours. Exactly what you wanted. 
At the right price. In time. On time. Every time. 
Anywhere in the continental U.S.A. 

You can count on us. 

Because we’re The Suppliers. 


DEG Peripherals 

BA11KE 

DD11CK/DK 

DH11AD 

DL11E 

DZ11-A,B,C,D,E,F 

FP11-A 

MS11LB 

MS11LD 

MSV11DD 

DLV11J 

RM05-AA 

RK07EA 

RK711EA 

RL02-AK 

RL211-AK 

RL01-AK 

RL11-AK 

RLV21 

RLV11 

RX211-BA 

RXV21-BA 

TJE16-EA 

TWE16-EA 

TWU45-AA 

KDF11-AD,HD,HF,HH,HK 

DR11C 

MR11EA 

VT103-AA.BA 

Call us at (904) 434-1022 


DEG Terminals 

LA 34 DECwriter IV 
LA 36 DECwriter II 
LA 38 DECwriter IV 
LA 120 DECwriter III 
LA 180 DECprinter I 
VT 50 DECscope CRT 
VT 52 DECscope CRT 
VT 100 DECscope CRT 
VT 103 DECscope CRT 
VT 132 DECscope CRT 

Call us at (904) 434-1022 




DEG Supplies 

Disk Cartridges and Packs 
Diskettes 

Diskette Storage Units 
Mag Tape 
Ribbons 
Paper 

Forms Caddy 
Anti-Static Rugs 
Print wheels 
Terminal/Printer Stands 
Forms Bursters 
and Decollators 
Check Signers 
and a whole lot more 

Call us for our complete 
catalogue: 

1-800-874-9748. 

In Florida, call 
(904) 434-1022. 


COMPUTER 
&TERMINAL 
EXCHANGE 

We’re The Suppliers 



114 East Gregory Street Pensacola, FL. 32501 


DEC is a registered trademark 
of Digital Equipment Corporation 

















page 18 March 1981 

RSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALJ^STSPROFESSIONAIJCTSPROF 


CTRL/F Monitor Support 

Version: V7.0-07 

Copyright (C) 1981 by Software Techniques. Inc. 

No portion of this document may be reproduced for any 
purpose without the express permission of Software 
Techniques, Inc. 

The information in this document is subject to change 
without notice and should not be construed as a commitment 
by Software Techniques. Inc. Software Techniques. Inc. 
assumes no liability for any errors which may appear in this 
document. 

Nothing is more inevitable than an idea whose time has come. 

- Emerson 

1.0 Introduction 

When RSTS/E V7.0 was (finally) released in early 1980 
and the Large File Processor was unveiled it became clear 
that information about open files was now contained in 
memory (as opposed to being pointed to on disk.) I set 
about at that point to develop a routine that would allow 
users of the system to strike a control key to display their 
open files, much the same way CTRL/T displays a "mini- 
SYSTAT" for the user. 

With all the information readily available in memory it 
merely became a matter of finding out where the informa¬ 
tion was and how it was stored. In addition, the Terminal 
Driver would have to be modified to support this added 
functionality. 

It turned out to be fairly easy to solve the above 
problems. However, writing the CTRL/F code itself turned 
out to be quite an effort. I had a large amount of informa¬ 
tion, and several different display formats. Not to mention 
the trouble of debugging. Many lonely hours of using 
MONODT and a listing of the TTOPNF code were spent 
before the final version was complete. 

What follows is the installation procedure for CTRL/F 
Open Files support for your RSTS/E Ml.0-01 Large File 
Monitor. The installation of this option allows the user to 
strike the < CTRL > and < F> keys simultaneously to get 
a listing of the files currently open by the job. 

TTOPNF WILL ONLY WORK ON LARGE FILE SYSTEMS. 
2.0 Installation 

Rather than get into a very tedious technical discus¬ 
sion of the exact mechanics of TTOPNF, I will merely pre¬ 
sent how it may be included in your RSTS/E monitor. To in¬ 
stall TTOPNF requires a SYSGEN. Because modifications to 
the standard files is required, the SYSGEN should be run 
off disk (as opposed to tape). To do this copy all the files off 
your SYSGEN tape into the same account as the TTOPNF 
files. Several things have to be done before you can run the 
standard SYSGEN procedure to include TTOPNF support. 
These are: 


1. Assemble TTOPNF.MAC 

2. Modify the terminal driver (TTDVR.MAC) 

3. Insert TTOPNF.OBJ in the RSTS.OBJ library 

4. After SYSGEN dialog, modify SYSGEN.CTL to 
include TTOPNF. 


2.1 TTOPNF.MAC 

It should be noted that the source as it stands now has 
been thoroughly tested at several sites for well over a year. 
Beware, modifications can lead you into trouble. 

The assembly procedure for TTOPNF.MAC is as 
follows: 

RUN $MACRO 

*TTSYSF,TTSYSF/C=COMMON,KERNEL,TTSYSF 

ERRORS DETECTED: 0 

*~Z 

NOTE 

The files KERNEL.MAC and COMMON.MAC can 
be located on your RSTS/E Sysgen Medium. 


2.2 TTDVR.TEC 

To make as simple as possible to modify the terminal 
driver (TTDVR.MAC on your Sysgen Medium), I developed a 
TECO macro that will modify TTDVR.MAC to include sup¬ 
port for TTOPNF. To modify the standard TTDVR.MAC file 
found on your RSTS/E distribution, place it in the same ac¬ 
count as TTDVR.TEC. Then run TTDVR.TEC. It should pro¬ 
duce output similar to the following. 

RUN TTDVR.TEC 

Found "TTDVR.MAC" working 

When TTDVR.TEC is through the copy of TTDVR.MAC in 
that account will have been patched to support TTOPNF. If 
any errors occur they will be TECO errors. Analyze the error 
and take appropriate action to correct the problem 


2.3 Inserting TTOPNF.OBJ in RSTS.OBJ 

To insert the TTOPNF module in RSTS.OBJ requires the 
use of the program LIBR.SAV. This program should cur¬ 
rently be in your system library ([1.2]). If not there it can be 
found on your RSTS/E Sysgen Distribution. Follow this pro¬ 
cedure to accomplish the insertion. 

RUN $LIBR.SAV 
*RSTS/X/N=RSTS,TTOPNF 
*~Z 

TTOPNF has been sucessfully inserted if no errors occurred. 


RSTS users: 


Announcing, DISKIT, the first software 
tool kit for complete disk management. 


Disk Optimization Made Easy 
The DISKIT package provides you with all 
of the tools and utilities you need to create 
and manage a well-structured disk. Just 
look at all you get: 

DSU Disk Structuring Utility 

DSU is a disk-to-disk transfer utility which 
creates a well-structured disk. Fast. (We 
transferred 289,000 blocks in 4,000 files in 
75 accounts. It took 32 minutes. That's 
150 blocks/second.) And the features go 
on and on: 

• Transfers between unlike disks 

• Saves all accounting data 

• Optimizes file clustersizes 

• Places and pre-extends UFD's 

• Allows manual file placement 

• Full logging and statistics 

• Sophisticated error handling and 
recovery 

DIR MACRO-11 Fast Directory Program 
Imagine. Disk directories 12 times faster 
than ever before. Look-up files by name, 
extention, and date (with wildcards) at the 
incredible rate of 250 files/second. And 
DIR isn't just fast, it's smart. DIR supports 
all of the standard DIRECT switches 
(including backwards, up to 1,000 files) 
along with features you can't find anywhere, 
like password lookup, UFD placement, and 
UFD size. It even works on dismounted 
disks, detecting bad directory structures 


and identifying them with comprehensive 
error messages. (It's the perfect disk 
diagnostic!) 

DUS MACRO-11 Disk Utility Subroutines 
The very same routines used in these disk 
management tools are available to you, 
with documentation, so that you can write 
your own disk handling programs. Included 
are routines (callable from Basic-Plus 2 or 
CSPCOM programs) which allow you to 
create, place, and fully extend UFD's under 
normal timesharing. In seconds. 

OPEN MACRO-11 Open Files Display 
Program 

OPEN displays open files on your system 
by job, with complete job and file statistics. 
It even has a sleep switch, allowing you to 
dynamically update the information at any 
desired interval. 

Proven Technology 

You don't have to be a field-test site to keep 
ahead of the game. All of these products 
have been thoroughly tested for six months. 

Special Offer 

All four products (DSU, DIR, DUS, and 
OPEN) are available separately. But now 
the entire package, with complete 
documentation, is only $850. If you need 
further information, just call us at (213) 
594-9405 or write. But, don't wait too long. 
This offer expires February 28, 1981. 


Once again, we've got the answer. 


DISKIT from Software Techniques, Inc. 

SOFTWARE SPECIALISTS ENGINEERING CONSULTANTS 
5242 KATELLAAVE., SUITE #101, LOS ALAMITDS, CA9Q72Q 
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2.4 Modifying SYSGEN.CTL 

At this point you should run the SYSGEN.SAV pro¬ 
gram and configure your system. After this is completed, a 
small modification must be done to SYSGEN.CTL During 
the LINKing of the TER phase of the monitor an additional 
library search must be performed for TTOPNF. If you have 
included CTRL/T mini-systat support then insert the text 
•TTOPNF" directly below that in the SYSGEN.CTL file as 
shown. 

$R LINK.SAV 

TER/Z t TER/A/W , TER=IN:TER,DK:RSTS,STB/X/B: 117000/0: 1000/I/C 

TTDVR/C 

IN:RSTS 

TERPAT 

TTSYST 

TTOPNF 

$R LINK.SAV 

If TTSYST has not been included insert the text following 
"TERPAT". 


3.0 Appearance 

After the new monitor SIL has been installed striking 
a CTRL/F sequence will produce a listing of your currently 
open files. It will look similar to this: 

>TKB 

TKB> (CTRL/F struck at this point) 

1 KB4 

8 DBO [1,71] TEMP18.TMP* <60> 0 0 16 

15 DBO [1,2] TKB .TSK <104> 142 169 32 CR 

Most of the information is self explanatory. From left 
to right: The channel number, the device open on that 
channel, the project-programmer number, the filename 
(the “*” indicates the file has been marked for deletion or 
is tenative), the protection code, the current virtual block 
number of the file being accessed, the current virtual size 
of the file, the clustersize, and then a set of one-character 
flags. The flags: 

C The file is contiguous. 

R The file is open in read-only mode. 

U The file is open in special file update mode. 

L The file has been "placed" on the disk at a specific 
device cluster. 

* The file has a block or range of blocks locked. 

P The file is permanent and may not be killed or re¬ 
named. 

There are two special cases of file opens that are seen 
by TTOPNF. These are UFD opens and "non-file structured" 
disk opens. They produce output similar to that below. 

1 DBO Non-file structured 0 495513 8 

2 DBO [1,2] User-file directory 0 112 16 PR 

On the disk open the “size” becomes the number of 
virtual blocks the disk contains, and the clustersize is the 
device cluster size. UFD information is the same as file in¬ 
formation. Note the “PR" flags on the UFD open. 


4.0 Optional Patch 

It may be desirable to allow non-privileged users the 
ability to use CTRL/F. A patch can be made to the built 
monitor to enable this. The patch procedure is shown 
below. 

RUN $ONLPAT 

Pile to patch? (Monitor SIL with TTOPNF support) 
Module name? TER 
Base address? ..PRVF 
Offset address? 0 
Base Offset Old New? 

137554 000000 001404 ? NOP 

137554 000002 032761 ? ~C (UP-ARROW C TO EXIT) 

5.0 Caution 


Many letter quality printers use a CTRL/F sequence 
for acknowledgment. To prevent the monitor from in¬ 
tercepting this sequence set NO CTRL/R on these ter¬ 
minals. 


6.0 Information 


For any further help or comments contact: 


Steven P. Davis 
Director Software Engineering 
Software Techniques, Inc. 
5242 Katella Ave. Suite *101 
Los Alamitos, CA 90720 


7.0 Acknowledgements 

The routines OUTPNT, OUTSIZ, OUTCHR. and DODIVS 
are slightly modified versions of the same routines found 
in the TTSYST support code of the RSTS/E monitor. 


8.0 TTOPNF.MAC 

TITLE TTSYSF,<CTRL/F OPEN FILES> ,07,28-AUG-80,SPD 

; WRITTEN BY: STEVEN P. DAVIS 
J 

; COPYRIGHT (C) 1980, 1981 

; SOFTWARE TECHNIQUES, INC., LOS ALAMITOS, CA 90720 
; 

; THIS SOFTWARE IS PROVIDED FREE OF CHARGE TO MEMBERS OF THE NORTH 
; AMERICAN DECUS ORGANIZATION AND MAY BE COPIED ONLY WITH THE 
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
; OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR NON-COMMERCIAL USE AND 
; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP 
; OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN SOFTWARE TECHNIQUES. 

; 

; THIS INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY SOFTWARE 
7 TECHNIQUES 
; 

; THIS SOFTWARE IS UN-RELEASED AND SOFTWARE TECHNIQUES HAS NO 
; COMMITMENT TO SUPPORT IT AT THIS TIME, UNLESS STATED ELSEWHERE IN 
; WRITING. 


.SBTTL 

SET UP WINDOW 

POINTERS 

.ENABL 

LC 


.DSECT 

,NOCREF 


FSLINK: 

. BLKW 

;POINTER TO NEXT FCB THIS UNIT 

F$FID: 

. BLKW 

;FILE ID (LINK TO NAME ENTRY) 

F $PPN: 

.BLKW 

7 PPN OF FILE 

F$NAM: 

.BLKW 

7FILE NAME 


.BLKW 

7 SECOND WORD FILE NAME 


.BLKW 

7 EXTENSION 

F$STAT: 

. BLKB 

7FILE STATUS BYTE 

F$PROT: 

. BLKB 

7 PROTECTION CODE 

F$ACNT: 

.BLKB 

7 OPEN COUNT 

F $RCNT: 

.BLKB 

7 READ REGARDLESS COUNT 

F$WFND: 

.BLKW 

7 FBB OF FIRST WINDOW 


.BLKW 

7 RESERVED, RETRIEVAL ENTRY 

FSUFND: 

.BLKW 

7 CURRENT FBB 


.BLKW 

7 OF NAME ENTRY 
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We’ve got the best combina¬ 
tion of word processing and data 
management available. 

Other companies tried to over¬ 
lay data processing onto existing 
word processing software systems. 
It didn’t work too well. There were 
just too many unreasonable restric¬ 
tions: like small file sizes and cum¬ 
bersome sorting limitations. 

We’re a little hungrier, so we 
scrambled, wrestled, and finally 
arrived at the best word processing- 
data management system on the 
market. 

We integrated our own proven 
QDMS data management system 


with our new QWORD word pro¬ 
cessing capability and came up 
with pure dynamite. Then we sim¬ 
plified it so that anyone can 
handle it. 

You can buy a system that 
includes a PDP11/23, RSTS/E 
operating system, 192K bytes of 
memory, multiplexor, 20 Megabytes 
of removable disk storage on two 
drives, video console, QDMS and 
QWORD software for under 
$43,000. And the computer sys¬ 
tem is maintained by DEC. 

In short, it's the best. 

Call, don't write Tom Schreier 
at (203) 728-6777. 


Quodata 

Specialists in DEC Systems 
196 TRUMBULL STREET • HARTFORD. CT. 06103 



nanaV9 March 1981 

paqe c>c, 

RSTSPROFESSIONAIJ^STSPROFESSIONALRST^PROFESSIONAIJ^STSPROFESSIONALRST^PROFE^IONAIJ^STSPROFESSIONAIJ^STSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONAIJ^^^ 


F$UNT: 

.BLKB 

7 FIP UNIT NUMBER 

F$SIZM: 

.BLKB 

7 FILE SIZE MSB 

F$SIZL: 

.BLKW 

7 FILE SIZE LSB 

F$CLUS: 

.BLKW 

?FILE CLUSTER SIZE 

F$WCB: 

.BLKW 

7 FIRST WCB FOR THIS FILE 

.DSECT 

,NOCREF 


W$IDX: 

.BLKB 

7 HANDLER INDEX (0=DISK) 

W$STS: 

.BLKB 

7 STATUS FLAGS 

W$JBNO: 

.BLKB 

?JOB * 2 

W$FLAG: 

.BLKB 

7 FLAG BITS 

W$PT: 

.BLKB 

;PENDING TRANSFERS 


W$NVBM: 
W$NVBL: 
W$FCB: 
W$REN: 
W$WCB: 
W$NXT: 

W $WND: 


. BLKB 
. BLKW 
. BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


;NEXT VIRTUAL BLOCK MSB 
;NEXT VIRTUAL BLOCK LSB 
;FCB § F$CLUS 
;RETREIVAL ENTRY NUMBER 
;NEXT WCB THIS FCB + FLAGS 
;FBB OF NEXT RETREIVAL WINDOW 
; (FROM ABOVE) 

;CURRENT WINDOW 



.BLKW 

? WORD 

TWO OF WINDOW 


.BLKW 

7 WORD 

THREE OF WINDOW 


.BLKW 

7 WORD 

FOUR OF WINDOW 


.BLKW 

7 WORD 

FIVE OF WINDOW 


.BLKW 

? WORD 

SIX OF WINDOW 


.BLKW 

7 WORD 

SEVEN OF WINDOW 

.BSECT 


7 BITS 

FOR FILE STATUS 

US.OUT: 

.BLKB 

7 FILE 

IS PHYSICALLY ON ANOTHER DISK 

US.PLC: 

.BLKB 

? FILE 

HAS BEEN PLACED 

US.WRT: 

.BLKB 

? FILE 

IS OPEN FOR WRITE ACCESS 

US.UPD: 

.BLKB 

/FILE 

IS OPEN FOR UPDATE 

US.NOX: 

.BLKB 

7 FILE 

IS CONTIGUOUS 

US.NOK: 

.BLKB 

? FILE 

CANNOT BE KILLED DURING TIMESHARING 

US.UFD: 

.BLKB 

7 NAME 

ENTRY IS A UFD 

US.DEL: 

.BLKB 

7 FILE 

IS MARKED FOR DELETION 

.BSECT 


7 BITS 

FOR W$STS OR DDSTS 


.BLKB 

/OPEN 

NON-FILE STRUCTURED 


.BLKB 

7 READ- 

-LOCK ON FILE 


BR 110$ ;;AND CONTINUE 

MOV W$FCB(R4),R4 ;;POINT TO FCB FOR THIS FILE 

MOVB F$UNT-F$CLUS(R4),R4 ;;GET THE FIP UNIT FOR THIS FILE 

MUL 10.,R4 ;;COMPUTE OFFSET INTO LOGICAL NAME TABLE 

ADD LOGNAM+6,R5 ;;POINT TO UNIT NUMBER 

MOVB (R5),-(SP) ;;SAVE THE UNIT NUMBER 

TST -(R5) j;POINT BACK ONE WORD 

CALL OUTPNT ;;PRINT OUT DISK NAME 

CALL OUTSIZ ;;PRINT OUT THE UNIT NUMBER 

MOV (SP),R4 ;;GET BACK WCB POINTER 

MOV W$FCB(R4),R4 ;;POINT TO FCB AGAIN 

SUB F$CLUS,R4 ;;POINT TO TOP OF WINDOW 

MOV F$STAT(R4),-(SP) ;;SAVE FILE STATUS 

MOV F$CLUS(R4),-(SP) ;;SAVE CLUSTERSIZE 

CLR -(SP) ;;FOR MSB AS CLUSTERSIZE 

MOV F$SIZL(R4),-(SP) ;;SAVE FILE SIZE LSB 

MOVB F$SIZM(R4),-(SP) ;;SAVE SIZE MSB 

CMP _(SP)(SP) ;;SAVE TWO SPOTS FOR VITUAL BLOCK NUMBER 

BIT DDNFS,§16(SP) ;;OPEN NON-FILE STRUCTURED? 

BEQ 70$ ;;GO ABOUT OUR BUSINESS IF NOT 

CALLX ASCOUT,R5,NFSMSG ;;PRINT OUT THE MESSAGE 
BR 100$ ;;AND GO ON OUR MERRY WAY 


.BLKB 
WC$UPD: .BLKB 
WC$CTG: .BLKB 
WC$LCK: .BLKB 
WC$UFD: .BLKB 
WC$USE: .BLKB 


;WRITE-LOCK ON FILE 
;UPDATE MODE ON FILE 
;FILE IS NO EXTEND (CONTIGOUS) 
;LOCK IS ON IN FILE 
;FILE IS A UFD 
;WRITE PRIVS GRANTED 


.SBTTL TTSYSF - PRINT OPEN FILES FOR USER 
; + 

; TTSYSF - PRINT OPEN FILES FOR USER 

; 

; CALL: R1 -> TO CONSOLE DDB 
; BACK: C-BIT SET IF CAN'T DO 

DEFORG TTSYSF 

TTSYSF::MOVB DDJBNO(Rl),R3 ;;GET OWNING JOB *2 

BIC C<63.*2>,R3 ;;AND ENSURE A VALID JOB *2 

BEQ 10$ ;;NO JOB, NO OPEN FILES 

MOV JOBTBL(R3),R3 ;;GET JOB DATA BLOCK POINTER 

BEQ 10$ ,*;NO JDB, NO OPEN FILES 

BIT JFPRIV,JDFLG(R3) ;;ARE WE PRIVILIGED? 

PRVF == . ;;** PATCH ** TO 'NOP' SO NON-PRIV CAN DO 

BEQ 10$ ;;NO, DON'T SHOW OPEN FILES 

BIT DDCONS,DDCNT(R1) ;;REALLY CONSOLE DEVICE FOR JOB? 

BNE DOSYSF 77 YES, GO SHOW OPEN FILES 

10$: SEC ;;MARK AS NO GOOD 

RETURN 7 7 AND RETURN 


GLOBAL <JOBTBL> 
.ENABL LSB 


UFDMSG: 
NFSMSG: 
.EVEN 


10 $: 

20 $: 


:.ASCIZ %User file directory%<11> 

:.ASCIZ <ll><ll>%Non-file structured%<ll> 

;THIS COULD BE ANNOYING 

MOV R5(SP) ;?SAVE AN IMPORTANT REGISTER 

CMPB DDHORZ(Rl),DDHORC(Rl) j;IS CARRIAGE CURRENTLY RESTORED? 

BEQ 10$ ;;YES 

MOV R3,-(SP) ;;SAVE THIS POINTER 

CALLX ASCOUT,R5,CRLF.0 ;;NO, SO RESTORE THE CARRIAGE 

MOV (SP)+ ,R3 ;;GET IT BACK 

MOV JDIOB(R3),R3 ;;POINT TO THEIR I/O BLOCK 

TST (R3)+ ;;SKIP THEIR CONSOLE TERMINAL 

CLR R5 ;;LET R5 BE THE CHANNEL COUNTER 

CALL 30$ ;;OUTPUT NEXT CHANNEL 

CMP 15.,R5 ;?PAST LAST CHANNEL 

BGT 20$ ;;NOT YET 

CALLX ASCOUT,R5,CRLF.0 ;;TO MAKE IT LOOK GOOD 

MOV (SP)+,R5 ;;RESTORE THE IMPORTANT REGISTER 

CLC ?;SAY DONE 

RETURN 77 AND EXIT 


40$: 

50$: 


INC 

R5 

?7 SET NEXT CHANNEL NUMBER 

MOV 

(R3)+,R4 

7 /GET POINTER TO WCB 

BEQ 

40$ 

?/NOTHING THERE, GO FOR NEXT 

BIT 

1 ,R4 

77 ODD ADDRESS? 

BNE 

40$ 

77 THAT'S ODD, QUIT 

BR 

50$ 

7 /CONTINUE 

RETURN 


7 /PRE-MATURE RETURN 

MOV 

R3,-(SP) 

7 ;SAVE THIS POINTER 

MOV 

R5,-(SP) 

7 ?SAVE THIS COUNTER 

MOV 

R4,-(SP) 

77 SAVE POINTER TO WCB 

MOV 

R5,-(SP) 

7 ?PUT CHANNEL NUMBER ON STACK 

CALL 

OUTSIZ 

7 /OUTPUT THE CHANNEL NUMBER 

CALL 

OUTCHR,R5,<11> 

77 NOW OUTPUT A <TAB> 

MOV 

(SP),R4 

7 /GET WCB POINTER BACK 

MOVB 

W$IDX(R4),R2 

77 IS THIS A DISK? 

BEQ 

60$ 

7 / YEP 

BIT 

R2, 1 

7 /BOGUS INDEX? 

BNE 

120 $ 

?/QUIT 

MOV 

R2,R5 

7 /COPY DEVICE INDEX *2 

ADD 

DEVNKB-2,R5 

7 /POINT TO NAME IN "DEVNAM" 

MOVB 

DDUNT(R4),-(SP) 

7 ?SAVE THE UNIT NUMBER 

CALL 

OUTPNT 

77 OUTPUT DEVICE NAME 

CALL 

OUTSIZ 

7 ?AND UNIT NUMBER 


70$: 

MOVB 

F$PROT(R4),—(SP) //GET PROTECTION CODE 


ADD 

F$NAM,R4 

77 POINT TO FILENAME 


MOV 

R4,-(SP) 

7 ?SAVE THE POINTER 


TST 

~(R4) 

77 SKIP THE WORD 


MOV 

(R4),-(SP) 

??SAVE THE PPN 


MOV 

(SP),-(SP) 

77 COPY IT TWICE 


SWAB 

(SP) 

77 SWAP FOR PROJECT NUMBER 


CALL 

OUTCHR,R5,<'t* 

400 + ' > 77 NOW OUTPUT A <SP>"[ 


CALL 

OUTSIZ 

7 /OUTPUT THE PROJECT NUMBER 


CALL 

OUTCHR,R5,<',> 

77 AND THEN A COMMA 


CALL 

OUTSIZ 

77 THEN PROGRAMMER NUMBER 


CALL 

OUTCHR,R5,<11* 

400+']> 77 THEN OUTPUT ]<TAB> 


MOV 

(SP)+,R5 

77 POINT TO FILE NAME 


BIT 

<WC$UFD*400>, 

§20(SP) 7 /WAS IT JUST A UFD? 


BEQ 

80$ 

7 /NO, TAKE NO SPECIAL ACTION 


TST 

(SP) + 

77 SKIP THE PROTECTION CODE 


CALLX 

ASCOUT,R5,UFDMSG 77 AND SAY IT’S A UFD 


BR 

100 $ 

77 AND CONTINUE 

80$: 

CALL 

FILNAM 

7 /GO PRINT OUT FILENAME 


BIT 

US.DEL,16(SP) 

77 ARE WE DELETED? 


BEQ 

90$ 

7 ? NOPE 


CALL 

OUTCHR,R5,<'*> 

7 /OUTPUT A STAR 

90$: 

CALL 

OUTCHR,R5,<60. 

*400+11> ; 7 NOW OUTPUT <TAB>< 


CALL 

OUTSIZ 

77 PRINT PROTECTION CODE 


CALL 

OUTCHR,R5,<11* 

400+62.> 77 NOW OUTPUT ><TAB> 

100 $: 

MOV 

16(SP),R4 

77 RESTORE WCB POINTER 


MOV 

W$NVBL(R4),2(SP) 77 SAVE VIRTUAL BLOCK LSB IN STACK 


MOVB 

W$NVBM(R4) ,(SP) 77 SAVE VIRTUAL BLOCK MSB IN STACK 


CALL 

DBLNUM 

? 7 OUTPUT NEXT BLOCK 


CALL 

OUTCHR,R5,<11> 

77 NOW OUTPUT A <TAB> 


CALL 

DBLNUM 

?/OUTPUT FILESIZE 


CALL 

OUTCHR,R5,<11> 

77 NOW ANOTHER <TAB> 


CALL 

DBLNUM 

7 7 OUTPUT THE CLUSTER SIZE 


CALL 

FILSTA 

7 /DO FILE STATUS 

110 $: 

CALLX 

ASCOUT,R5,CRLF 

.0 7 7 FINALLY RESTORE CARRIAGE FOR THIS 

120 $: 

TST 

(SP) + 

77 SKIP WCB POINTER 


MOV 

(SP)+,R5 

77 RESTORE CHANNEL POINTER 


MOV 

(SP)+,R3 

?7 RESTORE IOB POINTER 


RETURN 


77 EXIT SUBROUTINE 

GLOBAL 

<CRLF.0 

,LOGNAM,DEVNKB> 



.DSABL 

LSB 


SBTTL 

PRINT OUT FILE STATUS 

FLAGS 

*? + 

7 CALL 

FILSTA 



7 SP -> 

FILE STATUS BITS 


7 R4 GETS CLOBBERED 



.ENABL 

LSB 


FILSTA: 

MOV 

(SP),R4 

7 7 SAVE RETURN ADDRESS 


MOV 

2(SP),(SP) 

77 RESET AS FILE STATUS 


MOV 

R4,2(SP) 

7 ?AND RESET RETURN ADDRESS 


CMP 

US.WRT,(SP) 

77 IS THERE STATUS? 


BEQ 

50$ 

77 NOPE, SKIP IT 


CALL 

OUTCHR,R5,<11> 

77 AND YET ANOTHER <TAB> 


BIT 

US.NOK,(SP) 

77 PERMANENT FILE? 


BEQ 

10 $ 

? 7 NOPE 


CALLX 

OUTCHR,R5,<'P> 

77 SAY SO 

10 $: 

BIT 

US.NOX,(SP) 

?/CONTIGOUS? 


BEQ 

20 $ 

7 /NOPE 


CALLX 

OUTCHR,R5,<'C> 

77 SAY SO 

20 $: 

BIT 

US.UPD,(SP) 

7 /OPEN FOR UPDATE? 


BEQ 

30$ 

77 NOPE 


CALLX 

OUTCHR,R5,<'U> 

??SAY SO 

30$: 

BIT 

US.UPD(US.WRT 

,(SP) 7 /WE HAVE WRITE PRIVELEGES? 


BNE 

40$ 

77 YES, SO IGNORE 


CALLX 

OUTCHR,R5,<'R> 

77 IF NOT, SAY READ ONLY 

40$: 

BIT 

US.PLC,(SP) 

;?ARE WE A PLACED FILE 


BEQ 

50$ 

7 7 NOPE 


CALLX 

OUTCHR,R5,<'L> 

77 SAY SO 

50$: 

TST 

(SP) + 

7 /GET RID OF STATUS 


RETURN 


77 AND GO BACK 


.DSABL 

LSB 


.SBTTL 

PRINT OUT SINGLE OR DOUBLE INTEGER 

.ENABL 

LSB 



/ + 

7 DBLNUM 

- PRINT 

OUT DOUBLE PRECISION INTEGER 

( 

WITH OR 

WITHOUT LEFT JUSTIFICATION 

| 

SP -> LSB OF INTEGER, 1 

MSB OF INTEGER 

7 

CALL 

DBLNUM 


7 

R2 - R5 

RANDOM 


DBLNUM: 

MOV 

(SP)+,R5 

77 SNAG RETURN ADDRESS 


CLR 

R2 

77 CLEAR A HIGH ORDER 


BISB 

(SP)+,R2 

;?GET THE HIGH ORDER OF THE INTEGER 


MOV 

(SP)+,R3 

7 /GET THE LOW ORDER 


MOV 

R5,-(SP) 

77 REPLACE THE RETURN ADDRESS 


DIV 

10000.,R2 

?7 SPLIT THE NUMBER 


MOV 

R3,-(SP) 

?7 SAVE LOW ORDER 


TST 

R2 

77 IS THERE A HIGH ORDER? 


BEQ 

10 $ 

77 NO HIGH ORDER 
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RABBIT-4 FILE SECURITY 
GUNS DOWN DATA RUSTLERS 
ON RSTS/E SYSTEMS 


Do You Know Who The Pesky Varmints 
Reading Your Confidential Information Are? 

RABBIT-4 will help you track’m and catch’m, 
cause it has a proven record of performance. 
RABBIT-4 will let you: 

□ Log secured file accesses 

□ Signal OPSER of violations 

□ Roll-out the bandits 

□ Freeze system activities with 
6 levels of file security to keep your data safe 
and secure, RABBIT-4 will also: 

• Secure up to 64 data files 

• Provide 32 user descriptions plus wild cards 

• Restrict file access to specified programs 

• Identify intrusions and intruders 

• Recover automatically from system crashes 


SEE OUR TALENTED RABBITS AT THE MAY DECUS MEETING 

and pick up a free Rabbit Coloring Book Souvenir! 

We’ll have a hospitality suite at the Eden Roc Hotel 
where we’ll demonstrate Rabbit’s resourcefulness in 
* Performance Analysis * Job Accounting * Resource Accounting 
* Data Management * Financial Planning * File Security 

RFIXEO inc. 

3336 N. Flagler Drive, West Palm Beach, FL 33407 (305) 842-2115 
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30$: 

40$: 


50$: 


MOV 

CALL 

SEC 

MOV 

CALL 

RETURN 

CALL 

.WORD 

RETURN 

MOVB 

CALLRX 

.ASCII 

.ASCII 


R2 ,R3 

20 $ 


(SP)+ ,R3 
20 $ 


DODIVS,R5,30$ 

1000 ., 100 ., 10 . 


50$(R2),R2 
CHOUTE 


"$.?" 

"0123456789" 


;;SET TO OUTPUT IT 
;;DO IT 

;;LOW ORDER SHOULDN'T SUPRRESS LEADING ZEROES 
;;DO LOW ORDER NOW 
I;OUTPUT THE LOW PART 
;;AND GO BACK 

;;GO DO THE DIVISIONS, PRINTING ASCII DIGITS 
;;EXIT 

;;GET THE NUMERIC 
;;OUTPUT THE CHARACTER 


R2-R4 « RANDOM 
R5 -> PREVIOUS + 2 




OUTPNT: MOVB 
CALLX 
MOVB 
BIC 
BNE 

RETURN 


(R5)+,R2 
CHOUTE 
(R5)+,R2 
C<177 >,R2 
40$ 


7 ;GET FIRST CHARACTER 

;; AND OUTPUT IT 

;;GET SECOND CHARACTER (IF ANY) 

;; AND TRIM THE SIGN BIT 

;;OUTPUT SECOND CHARACTER IF ONE EXISTS 

;;ELSE JUST EXIT 


.DSABL LSB 

DODIVS - DO A SERIES OF DIVISIONS AND EMIT THE QUOTIENTS. 
R3 - NUMBER TO DIVIDE 

C*1 IF LEADING ZEROS ARE TO BE PRINTED 



.EVEN 



7 

7 

CALL 

DODIVS,R5 






7 

.WORD 

ROUTINE TO 

i CALL TO EMIT A QUOTIENT 

; + 




; 


(QUOTIENT 

IS IN R2, MAY NOT ALTER R0, R1, OR R5) 

; FILNAM - PRINT OUT A FILENAME 


7 

.WORD 

DIVISOR 1, 

DIVISOR 2, ... 

; 




7 

RETURN 



7 

R5 -> TO THREE FILENAME 

WORDS 

7 




; 




7 

R2-R4 < 

= RANDOM 


; 

CALL FILNAM,R5 


7 




; 




7 

NOTE: 

(DIVISOR N 

200) MUST BE 0 FOR N >- 2 

FILNAM: 

MOV 

70$,-(SP) 

7 ; PUSH FOR EXTENSION 






MOV 

PC,-(SP) 

; ; BACK HERE ONCE 

DODIVS: 

MOV 

(R5) + ,- (SP) 77 SAVE THE OUTPUT ROUTINE ADDRESS 

60$: 

MOV 

(R5)+,R3 

; ;GET THE RAD50 WORD 


BIC 

-(SP),(SP) 

77 SAY NOT INTO SIGNIFICANCE YET 


SEC 


;;DON'T SUPRESS LEADING ZEROES 


ADC 

(SP) 

77 FORCE SIGNIFICANCE IF NEEDED 


CALL 

DODIVS,R5,80$ 

; ;GO DO THE DIVIDES 

10 $: 

CLR 

R2 

7 ,♦ CLEAR A HIGH ORDER 


.WORD 

50*50,50 



DIV 

(R5)+,R2 

77 AND DIVIDE 


RETURN 


7 ; EXIT 


BNE 

20 $ 

77 RESULT <> 0, SAY SIGNIFICANCE STARTS 






TST 

(SP) 

77 RESULT « 0, IS IT SIGNIFICANT? 

70$: 

MOV 

’ .,R2 

;; SET TO OUTPUT A "." 


BEQ 

30$ 

77 NOT YET... 


CALLX 

CHOUTE 

?; AND CALL ROUTINE TO DO IT 

20 $: 

INC 

(SP) 

77 INDICATE RESULTS ALL NOW SIGNIFICANT 


BR 

60$ 

77 AND CONTINUE 


MOV 

R3,-(SP) 

?;SAVE REMAINDER 






CALL 

§4(SP) 

;7 CALL THE OUTPUT ROUTINE 

80$: 

TST 

R2 

77 CHECK FOR A SPACE 


MOV 

(SP)+,R3 

7 ;RESTORE REMAINDER 


BEQ 

90$ 

77 OUTPUT A SPACE 

30$: 

TSTB 

(R5) 

;;MORE? 


ADD 

•A-1,R2 

77 ADJUST FOR ALPHABETICS 


BPL 

10 $ 

77 YES, LOOP 


CMP 

R2, 33+<’A-l> 

7 ;IS IT IN FACT ALPHABETIC? 


MOV 

R3,R2 

7 7 NO MORE DIVISIONS, SET FINAL RESULT 


BLO 

40$ 

7 ;YES, GO USE IT 


TST 

(SP) + 

;?DUMP THE SIGNIFICANCE INDICATOR 


SUB 

36+<'A-1>,R2 

77 ADJUST FOR NUMBERIC (ZERO » 0) 


CALL 

§(SP) + 

;7 GO OUTPUT FINAL RESULT 


BR 

30$ 

77 GO DO IT 


RETURN 

R5 

77 AND EXIT 

90$: 

MOV 

' ,R2 

77 SET SPACE AS CHARACTER 

.END 





BR 


40$ 


;;AND OUTPUT IT 


OUTSIZ - PRINT A NUMBER 0-255 WITH LEADING ZERO SUPPRESSION. 
SP -> NUMBER (HIGH ORDER BYTE IGNORED), ... 

CALL OUTSIZ 


9.0 TTDVR.TEC 

EBTTDVR.MAC$$@A/Found ' 
NORG TTSYST$LI 

ORG TTOPNF 

$$ 


TTDVR.MAC" - working/Y$S/AWR$FR/AWR/SPD$$ 
;OPEN FILES CODE 


R2-R4 
SP -> 


RANDOM 


;;HANDLE CONTROL/F (OPEN FILES) 


OUTSIZ: 

CLR 

R2 

77 CLEAR THE BUCKET 


BISB 

2(SP),R2 

77 AND GET THE K SIZE 


MOV 

(SP) +, (SP) 

77 MOVE THE RETURN ADDRESS DOWN 


;CLC 


7,‘C-BIT=0 FROM 'CLR' ABOVE 

100 $: 

MOV 

R2,R3 

7 ;COPY THE NUMBER 


CALL 

DODIVS,R5,30$ 

;;GO DO THE DIVISIONS, PRINTING 


.WORD 

100 ., 10 . 


110 $: 

RETURN 


7 7 EXIT 


NTI$CRR::$$-STI$CTT$ 

LI; TI$CFF - F HANDLER. 

$$STI$CTT::$$ 

LITI$CFF:: 

$$ 

SBNE 40 $$S;;$K 

INOPE, IT IS CONTROL/T OR CONTROL/F 
$$ 

R2j 'F-100 ;;CONTROL/F MAYBE? 

60$ ;;YEP, HANDLE IT 


OUTCHR - PRINT ONE OR TWO CHARACTERS. 

(BYTE2 NOT PRINTED IF 0) 


CALL OUTCHR,R5 
.BYTE BYTE1,BYTE2 


R2-R5 = RANDOM 


S40$:$I CMP 
BEQ 

$$ 

LI50$:$$ 

3LI 

60$: CALL 

BR 

$$ 

STTSYST:$$ 

3LI TMPORG 

TTOPNF: SEC 

RETURN 

UNORG 


MAPPED,R5,TTOPNF ;;GO TRY FOR OPEN FILES 


50$ 


OUTCHR: MOV 
ADD 


R5,(SP) 
2, (SP) 


;;CLOBBER SAVED R5 WITH RETURN ADDRESS -2 
7 7 THEN UPDATE TO REAL RETURN ADDRESS 


; + 

7 OUTPNT 


PRINT ONE OR TWO CHARACTERS (VARIABLE). 
R5 -> 2 BYTES TO PRINT 
CALL OUTPNT 


$$ 

N.WORD 
0LI 
$$ 

N.WORD 
0LI 
$$ 

EX$$ 

$$ 


'G-100$ 
.WORD 


TI$CCG$$ 

.WORD TI$CFF 


;;DO SAME AS CONTROL/T 


?;SAY ILLEGAL UNLESS OVERLAID 
;; AND EXIT 


;CONTROL/F (OPEN FILES) 
;CONTROL/F (OPEN FILES) 


/AN 

/ TE 

f »vc 


TEWmNflL SAID, 

" RUN PRoGRAm RO*l' 
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Disc Structure Notes 

By Dave Mallery 

GOALS 
SURVIVAL 
PERFORMANCE 
SURVIVAL—MFD’S all equal 
DCN listings for contiguous files 
PERFORMANCE—Seek/Latency/Transfer 
Therefore, primary goal is 
REDUCE HEAD MOVEMENT 
Sources of Head Movement: 

Directories—if left unchecked, destroy performance 

a) by randomizing their location 

b) by randomizing their links. 

Non-contiguous files-window turns. 

A PROPER DISC 

Fully extended, non-deletable. 

Centered swapfiles (if applicable) 

Major data files; centered. 

Recoverable due to 

1) copies of MFD contiguous 

2) DCN listings of major con¬ 
tiguous files for NFS access. 

HOW TO DO IT 

1) During DSKINT 

a) Pack Clustersize 

b) SATT. SYS base 

c) MFD Clustersize 8/16 

d) do not pre-extend [0,1] 

& [ 1 . 2 ] 

e) do not locate [1.2] 

2) At this point, you have a 
disc with one cluster MFD at 
beginning and nothing else but 
[0.1] first cluster. SATT. SYS is 
centered. 

3) Pre-extend the MFD [1.1] 

—based on expected total ac¬ 
counts. Plan your accounts — 
give yourself enough extra. 

4) Pre-extend [0.1]-you don’t 
need much. Dump the SATT. 

5) In [0.1]. create enough 
contiguous files to fill up the 
SATT to the center. 

6) Run $REACT, creating 
your accounts. 

NOTE: You are making 

MFD entries only. Use UFD 
clustersize large enough. Create 
accounts in order of importance. 

7) Pre-extend each UFD. 

8) Make an image copy(s). 

9) Create and Protect your 
swap files. 

10) You will want to: 
a) make sys-call to zero 
an acct. priv or 


b) Place a null length, non-deletable file in each directory. The 
full UFD will remain contiguous. 

11) Copy in your main data files. Hopefully, they can be con¬ 
tiguous and protected. 

NOTE: they are at the top of the directory! As you need it, 
balance their locations around the center by deleting some of the 
bulk files in [0.1]. 

12) Copy in your BAC and BAS, etc. files. 

Make as many contiguous as possible. 

Finally all the rest. 

As you copy, do the BAC.TSK files first, so they are higher up in 
the directory. 

In [1,2] place login at the top. 

Use separate libraries for groups of cusps. 

NOTE: B + 2 spoolers really pay off. 

CARE AND FEEDING 

1) Run $REORDER ( in B + 2) frequently. 

2) Don’t create accounts unless you must-have extras 

created and extended. 

3) Keep a stash of contiguous space in [0.1]. 

4) Use contiguous files as much as possible. 

5) Print out and keep the DCN’s of all contiguous major files you 
worry about. 

6) Make all your discs from the image copy, so your MFD’s are 

identical and interchangable! 9 


centered, contiguous UFD’s 
contiguous, non-deletable 
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BEGINNER’S GUIDE TO 
MACRO 11 PROGRAMMING IN RSTS/E 

by Thomas Courtney, Mark/Ops. Inc., for the SENERUG Reference Library 


Chapter 1 
Introduction 

MACRO-11 is the assembly language for the PDP family of computers. Recently, programming in 
MACRO-11 has become respectable in the RSTS/E community, and this guide is intended to help you get 
started. You are going to need the following publications: 

1. MACRO-11 Language Reference Manual. 

2. PDP11 Processor Handbook for your machine. 

3. RSTS/E System Directives Guide. 

Actually, everything other than program listings can be found in these manuals somewhere, so the adven¬ 
turous may wish to proceed to them directly. This guide is not intended to make you a wizard at programming 
in MACRO-11; it is intended to give you a notion of the structure of the machine you work on, and a firm 
understanding of how things (like I/O) get done. 


Chapter 2 

The General RSTS/E Environment 

To program in MACRO successfully requires a different "world view" from higher level language program¬ 
ming. Instead of thinking of data and structure and programs as different entities, all three merge into what is 
hopefully a well ordered heap. After all, how can you expect to do a GET, or a PRINT or a FIELD in assembly 
language? For if assembly language programming is meant to put the programmer in direct contact with the 
machine, we would need a pretty sophisticated machine indeed to have such statements as these. 

The answer, of course, is that the PDP11 doesn't do all this. (See: “Technical Notes", p. 66] However, it does some 
things pretty closely, and only waits for the program to put data in the proper locations, and make a call to the 
Monitor. These are called General Monitor Directives, and are things like .READ, .WRITE. .CCL. etc. Their locations 
are defined in the file COMMON.MAC, which comes in all RSTS/E kits, and an abbreviated form is in Appendix A. 

To RSTS/E, a MACRO job can occupy up to 17777 bytes of memory (all numbers are octal). The monitor 
directives get their data, and return some too, from the first thousand bytes of this memory. A mapping of 
this region looks like this: 


BYTE RANGE 

NAME 

DESCRIPTION 

0000-0057 


User job image or runtime system. 

0060-0107 


used by Monitor to make the job swappable. 

0110-0167 


used by Monitor to make the job swappable. 

0170-0377 


default stack 

0400-0401 

KEY, USRSP 

defines job status 

0402-0441 

FIRQB 

File Request Queue Block 

0442-0457 

XRB 

Transfer Control Block 

0460-0657 

CORCMN 

core common area 

0660-0733 


controlled solely by the job. 

0734-0735 

USRPPN 

user project, programmer number. 

0736-0737 

USRPRT 

user default protection code. 

0740-0777 


user logical device name table. 
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MIS Professionals 


Seeking A Fruitful 
Career Opportunity? 


Consider A pple* 


At Apple Computer, we sincerely believe that our product—the 
personal computer—is the key to providing the 21st century indi¬ 
vidual with the personal power to deal with an increasingly com¬ 
plex society. In the four short years since our inception, we’ve 
developed the world’s leading personal computers. And we’ve cer¬ 
tainly been fruitful in doing so. In fiscal 1980 we grew 300%, and the 
future looks even better. 

Projected to reach sales of $5 billion by 1985, the personal 
computer industry promises unlimited growth, long-range stability 
and a wide variety of innovative challenges in a growing industry. 

Systems Analysts 
Programmer/Analysts 

The career implications for MIS professionals at Apple are limit¬ 
less. We’re offering solid opportunities to motivated analysts and 
programmers who are eager to operate in a dynamic, high growth 
environment. 

We have current openings at various levels, requiring one to 
five years experience and a Bachelor’s degree or equivalent. We’re 
especially interested in individuals familiar with DEC PDP-11/70^ 
RSTS/E, and NCA software. 

Your career can bear fruit with Apple. We pay top salaries and 
offer one of the best fringe benefit programs in the San Francisco 
Bay Area. Please send your resume to Professional Employment, 
Apple Computer, Inc., 10260 Bandley Drive, Cupertino, California 
95014. 

^cippkz computer 

An Equal Opportunity Employer 
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The sections of this area we are most interested in are the FIRQB and the XRB, since these areas are used 
in most Monitor-job communications. 


2.1 The FIRQB. 

The FIRQB (File Request Queue Block) contains the information used by the Monitor for I/O requests. 
Before you do most I/O requests, you have to load the FIRQB area with a variety of values. The general form of 
the FIRQB is: 


OFFSET 

NAME 

HIGH BYTE LOW BYTE 

OFFSET 

NAME 

1 


returned status 

0 

FIRQB 

3 

FQFUN 

calfip/.uuo job number * 2 

2 

FQJOB 

5 

FQSIZM 

MSB file size channel number * 2 

4 

FQFIL.FQERNO 

7 


project programmer 

6 

FQPPN 

11 


file name (2 words in RADIX-50 form) 

10 

FQNAM1 

13 



12 


15 


file ext. (1 word in RADIX-50 form) 

14 

FQEXT 

17 


least significant bits of file size 

16 

FQSIZ 

21 


buffer length 

20 

FQBUFL.FQNAM2 

23 


mode 

22 

FQMODE 

25 


status flags 

24 

FQFLAG 

27 

FQPROT 

prot. code 0, high byte real 

26 


31 


device name (a ASCII characters) 

30 

FQDEV 

33 


0, unit real device unit number 

32 

FQDEVN 

35 


cluster size 

34 

FQCLUS 

37 


number of entries in directory lookup 

36 

FQNENT 


Most of these entries should be self explanitory. The major idea is that the programmer puts in informa¬ 
tion needed by whatever Monitor directive, makes the call, and retrieves whatever information the Monitor 
gave back. 


2.2 The XRB. 


The XRB is the other major area used for Monitor-job communications. Information specified here are 
things like the location and size of strings to be processed. The general format of the XRB is: 


OFFSET 

NAME 

HIGH BYTE LOW BYTE 

OFFSET 

NAME 

1 


buffer size in bytes 

0 

XRLEN 

3 


bytes transferred 

2 

XRBC 

5 


buffer address 

4 

XRLOC 

7 

XRBLKM 

MSB of block * channel # * 2 

6 

XRCI 

11 


LSB of block * 

10 

XRBLK 

13 


wait time for terminals 

12 

XRTIME 

15 


device modifier 

14 

XRMOD.XRBSIZ 


Again, almost everything is straightforward. XRTIME is set for terminal input only. If it is 0, the system 
will wait forever. If it is positive, that is the time it will wait for a response. If negative, it goes into "keyboard 
Monitor waif state, which I have never used, but the Directives manual says is used for indirect command files 
by the Monitor. 


Chapter 3 

MACRO-11 Programming Basics 

MACRO-11 is a fairly complex assembly language, with over 400io instructions in the instruction set. 
eight register modes, and a variety of assembly time instructions. I am not about to explain all of it, quite 
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simply because I do not know all of it. Instead, I will attempt to explain the small subset of instructions I am 
going to use. 

A statement in MACRO-11 has the form 

label: operator operand, operand ; comment 

the label and comment are not neccesary to the legality of the statement. Some operators require one or no 
operands. The types of assembly statements fall into the following general categories: 

1. Instructions: these are from the PDP11 instruction set. 

2. Directives: these are calls to the RSTS/E Monitor 

3. Data formatting: these reserve space for data. 

4. Output formatting: these control listing results. 

5. Logical control: these instructions allow pieces of a program to be assembled independently. 

I will admit there are statements that do not fall into any of these categories. However, I will try not to use 
any of them here, and firmly believe that for the first shot, we will have enough to chew on. 


3.1 The Instruction Set. 


These are the nitty-gritty machine instructions. As they say in the processor handbook of you choice, in¬ 
structions come in three flavors: 

1. single operand — these are the operator operand instructions. The ones we will be using are: 

MNEMONIC ACTION 

CLR dst clears dst (destination) word 

CLRB dst clears dst byte. 

TSTB tests dst. 


Basically, CLR and CLRB put a 0 in a location specified by the operand. TSTB (and oddly enough, TST) 
test a location and set the Processor Status word. The Processor Status word contains information on 
the current status of the machine. Instructions operate on bits 0-3 of this word, called C, V, Z and N 
respectively. The C bit is set whenever an instruction caused a carry out of the most significant bit of 
the result. The V bit indicates an operation overflow. The Z bit is set whenever the result of an 
instruction is cleared. The N bit is set whenever the result of an operation is negative. In general, if the 
condition does not occur, then the appropriate bits are cleared. 


2. double operand — these are the operator operand, operand instructions. The ones we will use are: 

MNEMONIC ACTION 

MOV src, dst move source to dst. 

SUB src, dst subtract src from dst. 

3. program control — specifies specific actions to be taken by the processor. The ones we will use are: 

MNEMONIC ACTION 

BNE dst branch to dst if Z bit clear. 

JSR R, nam jump to subroutine nam 

RTS R return from subroutine. 


JSR and RTS also use a register, called the LINKAGE REGISTER. Upon executing the subroutine call, the 
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current contents of the register are pushed onto the stack, and the return address is put into the 
register. Upon returning from the subroutine, the contents of the register are used for the return 
address, and its original contents are restored and popped off the stack. 


3.2 Directives. 

As you now already know, the Monitor Directives interface between the Monitor and your job. We are only 
going to use five in the following examples: .READ, .WRITE, .FSS, CALFIP and .EXIT. 

1. .READ — this directive reads data from a file or a device previously opened on a channel. Since we re 
going to use the keyboard, there will be no need to open it. since it defaults to being channel 0. We will 
have to fill in the information on the XRLEN, XRBC, XRLOC, XRCI and XRBLK. We will get information 
back on .XRBLK. 

2. .WRITE — This directive writes to a file from a user buffer specified in the XRB. The data we must pass 
it are XRLEN, XRBC, XRLOC, XRCI and XRBLK. I'm not going to talk about what can be returned, since 
they are errors, and by the time you are ready to deal with them, you can look them up without much 
hassle. 

3. .FSS — the File String Scan directive. This allows you to set up the FIRQB automatically when opening a 
file. You can also use it to convert strings to RAD50 format. 

4. CALFIP — this command does all sorts of I/O related functions, like opening or closing files, 
assigning/deassigning devices, directory lookup and quite a bit more. We will use it to create a file, as a 
demonstration of how to set up the FIRQB using the .FSS directive. 

5. .EXIT — This returns control to the default runtime system. You need pass nothing to the call, and 
nothing is returned. 


3.3 Data Formatting. 

These statements reserve space for data, and sometimes put data into specific locations. The ones we will 
use are: 


MNEMONIC 


ACTION 

.BLKW 

1000 


reserves 1000 (octal) words of storage. 

.ASCII 

/Test/ 

15 12 

puts the ASCII characters T, e. s, t and <cr>. If 
into storage. 

.ASCIZ 

/Test/ 

15 12 

same as .ASCII but appends a null character to 
the end. 

.EVEN 



puts in an extra byte if program counter is odd. 


3.4 Output Formatting. 

These statements take care of how the assembly listing looks. 

MNEMONIC ACTION 

.TITLE Test causes the title "Test" to appear on every output 

page of the assembly listing. 

.IDENT /v07.1/ causes a version number to be added to the title. 

.PAGE causes a page eject in the assembly listing. 

.END nam end of source file input. If "nam” is not null, then this is the entry point 

procedure. There can be only one entry point procedure built at task building 
time. 



IMMEDIATE DELIVERY 
11/70,11/34,11/23, LSI 


We Provide Systems, Add-ons, LSI, PDP11/34, and 11/70 
Installations and Maintenance RM02, RM03, RM04 
Call and ask us about our DEC RP02, RP03, RP06, RP07 
equivalent systems for: TE-10, TE-16, TU-45 


(408)732-4523 


WEX 


‘DEC is a registered trademark of Digital Equipment Corporation 


West Coast 
Computer 
Exchange, Inc. 

248 Sobrante Way, Sunnyvale, CA 94086 
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3.5 Logical Control. 

These instructions allow the deferring of several actions until link time. We will only use one such state¬ 
ment: 


.GLOBL NAMI, NAM2 causes NAM1 and NAM2 to be external global references. A label is declared 

GLOBL by using a double semicolon, e.g. label::. A mnemonic variable is made 
GLOBL by using a double equal sign, e.g. XRLEN = = 0. 


Chapter 4 

Registers and Addressing Modes. 

The PDP11 has eight general purpose registers for use in memory reference addressing. These registers 
can serve a variety of functions, from holding data to be played with, to containing pointers to pointers to ad¬ 
dresses. Two of the general registers, R6 and R7 (the others are RO—R5) have special functions. Register 6, 
called SP, is the hardware stack pointer. Register 7 contains the location of the next address to be executed, 
and is called PC or The secret of how all the registers are used is in their addressing modes. 

There are eight addressing modes, and these are all explained in the Processor Handbook. Even though 
they do it better than I, here is a synopsis of what the story is: 

1. Mode 0, Register Mode. This uses the register as a simple accumulator. It is the fastest way to do 
things, whenever possible. 

INC R3 : adds 1 to the contents of R3. 

2. Mode 1, Register Deferred Mode. The address of the operand is stored in the register. 

INC (R3) : adds 1 to the contents of the address 

: specified by R3. 

3. Mode 2, Autoincrement Mode. Like Mode 1. but the register is incremented afterwards. It is incre¬ 
mented by 1 if you are using a byte instruction, and by 2 if you are using a word instruction. 

INC (R3)+ : adds 1 to the contents of the address 

: specified by R3, then increments R3 

: by 2. 

4. Mode 3. Autoincrement Deferred Mode. The contents of the address specified by the contents of the 
register are used as the address of the operand. The register is then incremented 1 or 2, for byte or 
word instructions respectively. The only way I can remember all of this one is to call it "pointer to a 
pointer” mode. 

INC @(R3)+ ; adds 1 to the contents of the address 

: specified by the contents of the 
; address specified by R3, then 
; increments R3 by 2. 

5. Mode 4, Autodecrement Mode. This is the same as Autoincrement Mode, except it decrements the 
register before using its contents. 

INC -(R3) ; contents of R3 are decremented by 2. 

: the address specified by this number 
: are then incremented by 1. 


6. Mode 5. Autodecrement Deferred Mode. Similar to Autoincrement Deferred, but the register is decre¬ 
mented before anything else happens. 
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INC @-(R3) ; R3 is decremented by 2. Adds 1 to the 

: contents of the address specified by 
; the contents of the address specified 
; by R3. 


7. Mode 6, Index Mode. The base address is added to the index word to get the address of the operand. 


INC 1000(R3) 


1000 is added to R3, and the contents 
of that address are incremented by 
1 


8. Mode 7. Index Deferred Mode. The base address is added to the index. The contents of the index is then 
used as a pointer to the address of the operand. 

INC @1000(R3) ; 1000 is added to R3; and the address 

; pointed to by the contents of the 
; address in R3 are incremented by 1. 

There are also 4 modes associated with the use of the PC register. 

9. Mode 2, PC Immediate Mode. This is equivalent to autoincrement with the PC. 

ADD # 10, RO ; the value 10 is added to RO. 

10. Mode 3, PC Absolute Mode. This is equivalent to autoincrement deferred mode with the PC. 

ADD @ # 10, RO ; adds the contents of location 10 to 

; RO. 

11. Mode 6, PC Relative Mode. This is the Index mode with the PC. 

ADD MSG. RO ; adds the contents of MSG to RO. 

12. Mode 7, PC Relative Mode Deferred. This the Index deferred mode with the PC. 


ADD @MSG. RO 


the contents of the address specified 
by the contents of MSG are added 
to RO. 


... continued on page 88 


-MENU/AUTHORIZATION PROCESSOR SYSTEM- 

M/APS is a system to generate Application Menus and provide system security by controlling user access 

• Unlimited number of menu levels • Menu entry points may vary between users 

• Three levels of user authorization privileges • Keywords" to jump between menus 

• Variable arguments passed between menu and program • Menus are all file driven 

• And more 

Written in MACRO for RSTS/E, RT11. RSXIIM. And VAX 

CALL OR WRITE: (414) 784-8250 

-McHUGH, FREEMAN AND ASSOCIATES, INC.- 

II3S LEGION DRIVE • ELM GROVE. WISCONSIN S3122 
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NEW PRODUCT. See our ad on page 35. 


QUE.11 — System Manager’s Guide 


SYSTEM FILES 

If the installation of QUE.11 has been sucessful you 
will have these files in your system ([1 ,x] is the QUE.11 ac¬ 
count): 

Queue control package: (The protection codes shown 
must be used) 

[1 ,x]QUE11 .TSK <124> 

[1 ,x]OP.TSK < 124 > 

[1 ,x]TEST.TSK <104> 

[1 ,x]LOAD.TSK <124 > 

[1,x]SH0W.TSK <104> 

[1 ,x]SUBMIT.TSK <104> 

[1 ,x]DO.TSK <104> 

[1 ,X]CANCEL.TSK <104> 

Spooling package: 

SPRINT.TSK <104> 

SSPOOL.TSK <232 > 

$QUE.TSK<232> 

Print control files: (required for each print device) 
$N0RMAL.LP<40> 

$N0RMAL.LP0<40> 

In some systems the PRINT, SPOOL and QUE programs 
are held in the [1,x] library instead of the $ account. This 
requires a minor alteration to the control files NORMAL.LP 
etc. Note that these control files must be kept in the $ 
library. 


SYSTEM STARTUP 

The only job which must be started is QUE11.TSK. 
This may be run in any privileged account but the old (if 
any) QUE11.DAT file should be in the same account. 

When QUE.11 starts it prints a ?-mark. This can be 
answered in two ways: 

1. device specification 

2. detach statement (always last). 


Device Specification 

QUE.11 has an internal table with a list of all the 
physical devices configured in your system. This table is 


used to schedule queued jobs which reserve devices and 
associated volumes. You may disallow the use of a class of 
devices by a command of this type: 

? MT:/bar 

You may add to the list of devices by giving the 
mnemonic of a new dummy' device, like this: 

? CLASS: 

Dummy devices are a very powerful aid in job schedul¬ 
ing: they are described in detail later. 

Switches: /single /bar 

/clock 


Detach Statement 

This statement ends the initialization. After it is given 
QUE.11 searchs for a file called QUE11 .DAT which holds a 
list of any previously queued jobs. If the file does not exist 
in the account under which QUE.11 is running then a new 
one is set up automatically. 

Two switches may be used on the DETACH statement 
these are /LIST which prints the internal device table and 
/PRLn which sets the QUE.11 priority. 

These two switches must be given in the order shown 
here: 

?DETACH/LIST/PRI:0 

Note that if you defined a dummy device at a previous set¬ 
up which is now omitted, an error may occur when the 
QUE11.DAT file is scanned. Any job which reserved the 
omitted device will be omitted; a message will be printed 
to warn you. 


CONCISE COMMAND LANGUAGE (CCLS) 

You should add this set of commands to the Concise 
Command Language (remember to alter the START.CTL 
files for INIT): 

CCL SHO-W = [1 ,x]SHOW.TSK 
CCL SUB-MIT = [1,x]SUBMIT.TSK 
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CCL CAN-CEL = [1 ,x]CANCEL.TSK 
CCL DO- = [1 ,x]DO.TSK 
CCL LOAD- = [1 ,x]LOAD.TSK 
CCL OP- = [1,x]OP.TSK 

CCL PRI-NT = $PRINT.TSK 
CCL QUE-UE = $QUE.TSK;30000 

If PRINT.TSK and QUE.TSK are held in the [1 ,x] library 
then the $ in the commands above must be replaced by 

[1.x]. 

The commands do not 
have to be as shown; any 
command verb will be ac¬ 
cepted but the words 
shown here correspond 
with the User's Guide and 
the HELP options in the 
commands. [The PRINT 
command will override the 
Basic-Plus immediate 
mode PRINT statement 
(although &’ will still 
work). SPOOL is recom¬ 
mended instead of PRINT 
in this case.] 


OUTLINE OF OPERATION 

QUE.11 processes requests by using pseudo-keyboards 
as the job consoles. It can process up to four batch streams 
at once if there are four PK:’s free in the system. 

Job scheduling is done by testing each job against the 
following list of requirements which must be satisfied 
before the job will start: 


1. has the system room for another job? 

2. has QUE.11 


Announcing: 

QUE-ll 

ONE JOB SPOOLER FOR RSTS/E 
CONTROLS ALL SPOOLING 


REPLACES: 


• SPLIDL, SPLRUN . . . etc. 

• BAT IDL, BAT RUN . . . etc. 

• QUEMAN, QUMRUN . . . etc. 

• OPSER, OPSRUN . . . etc. 

• ATPRO 

• ATPK 


CLOSE DOWN 

QUE.11 is ended by 
giving the OP CLOSE com¬ 
mand. This serves two pur¬ 
poses it shuts down the 
queue only when all the 
current jobs have finished 
and it saves outstanding 
job requests in the 
QUE11.DAT file. If 
QUE11.DAT is stopped in 
any other way (by a KILL 
command, for instance) it 
is likely that some items in 
the queue will be lost. 

The SHUTUP program 
will not end QUE.11 pro¬ 
perly; the OP CLOSE com¬ 
mand should be given just 
before SHUTUP is started. 

The SYSTAT job table should be checked to make sure that 
QUE. 11 has stopped. A typical closedown might look like this: 

SYS/2 

2 [1.5] Det QUE.11 19/28K SL D02... 

Ready 
OP CLOSE 
Ready 
SYS/2 
Ready 

Run $SHUTUP 


QUE-ll: 

• One job controls all spooling 

• Saves small buffers and job slots 

• Spawns jobs as needed 

• Handles line printer and keyboard spooling 

• Controls as many BATCH JOBS as 

pseudo-keyboards 

• Full parameter replacement in QUE calls 

• "DO" command replaces indirect processors 

• Manuals available now 

• Program deliveries early in 1981 

• Only $995 single cpu license 

• Trial Version $100 

For more information contact: 

On Track Systems, Inc., P.O. Box 245, Ambler, PA 19002 
Phone: 215/542-7008 


a job 
(10 


slot free 
available)? 

3. is there a 
pseudo-keyboard 
free? 

4. has QUE.11 enough 
free I/O channels (1 
for immediate 
mode, 2 for batch 
or 3 for batch with 
a log file)? 

5. are the reserved 
devices free (not 
assigned and not 
opened)? 

6. are the required 
volumes (paper) 
loaded? 

Note that there is a 
maximum of 11 channels 
at step 4. In immediate 
mode (DO command) only 
step 4 needs to be 
satisfied. 


STATE CODES 

The state column in 
the QUE.11 status report 
(SHOW command) uses the 
codes described here to in¬ 
dicate the reason why a job 
is waiting to run. 

The normal codes that may 
appear are: 


Q Wait 

request not yet scanned because some essential 
resource is unavailable. 

V Wait 

job requires one or more volumes to be mounted 
D Wait 

job requires a device that is in use; it will run 
when the device becomes free. 

Abnormal codes are: 
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Exxx 

an unrecoverable error occured in starting the 
job (xxx is the RSTS/e error code). 

The operator should cancel requests which appear 
with the abnormal codes because they prevent later re¬ 
quests from running. 

DEVICE TABLE 

As explained already each job request may reserve up 
to five devices and associated volumes. These may be any 
of the physical or dummy devices . The job will not be 
started until all the devices are free and until they each 
have the required volume loaded on them. 

If a job reserves a device without a specific unit 
number (e.g MT:) the job will run as soon as any device of 
the type required becomes available. 

The list of currently loaded volumes is altered by the 
load command which has this form: 

LOAD dev:volume 

e.g LOAD LPO;WIDE 

LOAD MT2:TAPE79 

No checking (except for discs) is done to see if the 
volume is actually the one loaded and it is the responsibility 
of the operator to ensure that the QUE.11 device list ac- 


WHEN YOU NEED 

DEC.. . 


TERMINALS 

• VT-IOO • VT-103 
• LA34 • LAI 20 
• LAI 80 

PDP 11/03 
PDP 11/23 
SYSTEMS 

LSI/11 MODULES 

Demand. . .Delivery 
Demand. . .Discounts 
Demand.. .UNITRONIX 


O IWIIIMI 

CORPORATION 

(201) 874-8500 

198 Route 206 ■ Somerville, NJ 08876 
TELEX: 833184 


curately reflects the state of the peripheral devices on the 
system. 

The current status of the device list may be found by 
typing 

SHOW Devices] 
or SHOW Volumes] 

Only the devices which are currently loaded will ap¬ 
pear. 


DUMMY DEVICES 

Dummy devices are treated by QUE.11 in almost ex¬ 
actly the same way as the real devices on the system. For 
example, suppose that CLASS: was set up as a dummy 
device. It could be used to schedule large, slow jobs to run 
at night or at some other convenient time. The request to 
QUE.11 would be: 

SUBMIT test for CLASS:NIGHT 
which might show in the status report as.- 

Queue 

index Owner State Reserved Devices 

12.2 [11.9] V Wait CLASS:NIGHT 

When the operator was leaving in the evening the 
device CLASS: would be loaded with the volume - night: 

LOAD CLASS:NIGHT 

Remote job entry is an application where a real device 
may be loaded with a dummy volume. The distant receiver 
might be given a mnemonic name which would be used 
when submitting jobs for transmission. These jobs would 
be released by loading the device RJ: with the mnemonic 
name. 

The main distintion between dummy devices and the 
real ones is that the dummy devices may be used by more 
than one job at the same time. Where this is undesirable it 
can be prevented by appending the /SINGLE switch to the 
device when QUE.11 is being started. 


SPOOLING OF PRINT FILES 

Print files are queued to the printer(s) by a package of 
programs (stored in the '$' account) which make use of the 
QUE.11 batch control facilities. The files are transfered to 
the printer by a program called SPOOL.TSK which is run 
under the control of a command file (also stored in the '$' 
account). The name of this file is of special significance; it 
represents the type of paper required while the file name 
extension indicates the printer device. 

This filename convention is important; it the method 
by which the System Manager controls which devices may 
be used as queuable printers and the forms may be used on 
them. 
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For example, if your system has a printer LPO: and a 
terminal KB3: which is also to be used as a printer, you 
might provide these files: 

$NORMAL.LP $NORMAL.LPO 

SNARROW.LP $NARROW.LPO 

SNARROW.KB3 
$FORMX .KB3 

These files would allow normal and narrow paper to 
be used in the printer LPO: and narrow and FormX in KB3:. 
Notice that the file name extensions were given in two 
forms for LP: — this allows the user to specify the printer 
exactly (LPO:) or by the generic name (LP:) if the unit is 
unimportant. This does not matter if there is only one 
printer on your system. On a two printer system the .LP 
extension would allow files to be queued for either LPO: or 
LP1: (determined by QUE.11 when the job is scheduled). 

When a file is queued for printing with the PRINT or 
QUE programs a request is submitted to QUE.11 in the 
same way as a normal batch job request. However the con¬ 
trol file is one of the special files described above. The 
printer and paper are reserved automatically and appear in 
the QUE.11 status report as for a batch job. 

The name of the file(s) to be printed are given as a 
list of 'parameters' which cause some of the words in 
the command file to be replaced. The three words af¬ 
fected are: 

1 . # FS — the filename string (which may contain 
switches) 

2. # SK — replaced by Y if page skip is required; 

3. # RQ — used for REQUED information if 
necessary. 

SHOW n may be used to see the parameters for job 
‘n’. 


PRINT COMMAND FILES 


The $NORMAL.LP file which is supplied should be 
used as a basis for new control files. The listing below 
gives the purpose of the lines in the control file. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


RUN $SP00L.TSK 
# FS — the file string 

81 VOL — the paper name 

133 — the paper width 

66 — the paper depth 

8192 — the open mode for the printer 

— name of a header file 
*SK — the SKIP option 

81 PPN — the requester's PPN 

# RQ — REQUE information. 


The following items are all subtituted when the file 
is read by QUE.11 at run time: 



ERS unlocks the true potential of your database: 

• Total reporting flexibility 

• Can access any database 

• Online, English query language 

• Suitable for non-technical users 


ERS is available now for DEC PDP-11 computers. 
Call or write us for complete details. 


v 



ENTERPRISE 

TECHNOLOGY 

CORPORATION 


305 Madison Avenue 
New York, N.Y. 10165 
(212) 972 -1860 
Telex: 177959 
Cable: COMPUTERS 




# FS, &VOL, *SK, &PPN, # RQ 


At line 7 a file name may be given: the contents of 
this file will be printed as part of a separator page at the 
begining of the printout. If this line is left blank no 
seperator page appears. 

At line 6 the value 8192 stops a form-feed when the 
printer is closed at the end of the job. See the RSTS/E 
programmers guide for information on other values. 

If the operator cancels a job that has already started 
the job is stopped and the paper is realigned. SPOOL 
assumes that the printer can handle form-feeds cor¬ 
rectly. 


SPOOL COMMANDS 

The operator can control printing by means of these 
commands: 

1. CANCEL n 

CANCEL dev: (e.g CANCEL LP:) 

Cancel the job before or during printing. The 
second form may only be used when the job has 
started to print. 

2. LOAD dev:paper 

used to tell QUE.11 that the paper has been 
changed. If the paper is changed while a job is 
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actually running there is no effect until it 
finishes and the next job is selected. 

3. OP STATUS n 
OP STATUS LP: 

used to discover the state of the current job. This 
command and the following ones will only work 
while the specified job is actually using the 
printer, otherwise one of the errors 
?Job not in receive state 
?Device not controlled by QUE.11 
will occur. 

4. OP RESTART n B 
OP RESTART dev: B 

May be used to restart a printout at the begin¬ 
ning (omit B) or at a specified block. This may 
upset the page numbering if the /SKIP option 
was chosen. 

The SPOOL.TSK program waits when the print buf¬ 
fers are full. This can cause a delay when some of the 
commands above are given before a response is returned 
to the operator and action is taken by the program. The 
most affected commands are the OP commands. ^ 


REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS! 

All content in this publication is 
copyrighted. 

All reprints must be purchased from 
M Systems, Inc. No other reprints are 
authorized. 

All reprints shall contain both a 
cover and a subscription blank. 

Price quotation available on request. 



MULTI-USER DATA ENTRY 

• Create, modify or verify 
data files 

• Extensive field editing 

• User friendly design 

• Extracts ISAM file data 

POWERFUL FEATURES 

• Dictionary-driven 

• Full logic support 

• CRT features supported 
blink, bold, underline, 
reverse video & cursor 


ON-LINE INQUIRY 

• Inquiry and/or update 
for ISAM files 

• Multiple ISAM files 

• User access control 

• Browse feature 

DEC INTERFACE 

• RSTS/E, RSX11M, RT11 

• RMS1 IK with secondary 
index support 

• Optional support for 
resident libraries 


RESULTS 

• Increased productivity 

• Macro-coded - FAST!!! 

• Single DEUS program 
replaces user data entry 
inquiry programs 

STRATEGIC DATA SYSTEMS 


4N310 Knoll Creek Drive 
St. Charles, IL 60174 
(312) 377-3396 























PDP II USERS 

WANT AN ALTERNATIVE? 
YOU CAN HAVE ONE 


with computer 
maintenance 



• Maintenance Provided on PDPII Systems 

• Mixed Vendor Systems Is Our Specialty 

• Servicing Most Major U.S. Cities 

Don’t wait until your system is down again. 

For more information write or call now! 

Return to: Tymshare Inc. • 1513 E. Del Amo Blvd. • Carson, CA 90746 or call 213-638-0574 


YOUR NAME 


YOUR TITLE . 


COMPANY NAME _ 


ADDRESS. 


PHONE NO. 


□ I WOULD LIKE TO BE CONTACTED 
BY TYMSHARE TO DISCUSS MY 
MAINTENANCE NEEDS IN MORE 
DETAIL. 

□ I WOULD LIKE A PRICE QUOTE ON 
THE COST TO MAINTAIN MY 
COMPUTER SYSTEM 

TYPE OF MAINTENANCE COVERAGE 
YOU DESIRE (CHECK ONE) 

□ 8 am to 5 pm Monday through Friday 

□ 8 am to 8 pm Monday through Friday 

□ 24 hour Monday through Friday 
D 24 hour, 7 days per week 

□ Per Call Only 

CD Other — Please indicate below: 


MY PRESENT CONTRACT EXPIRES 


EQUIPMENT TYPE QUANITY EQUIPMENT TYPE QUANTITY 
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0N20FF.B2S 

By Dave Schott 


2 

3 

4 

5 

6 

11 


20 


30 

100 


999 

1000 


1010 

1020 


1030 


1040 


1050 


Program 

Version 

Edit 

Edit Date 
Author 


0N20FF.B2S 

7.0 

07 

10-Nov-80 
Dave Schott 


& 


Able Communications & Systems, Inc. & 

1197 North Tustin Avenue fi 

Anaheim, CA 92807 & 

(714) 632-0220 & 

& 

& 


This software is furnished free of charge to RSTS/E sites. It & 
may be distributed and copied to any site so long as there is no & 
direct commercial profit derived from such distribution. & 

& 

Although this software has been tested and is believed to be & 
error-free, neither ACSI nor the author assume responsibility & 
for the use or reliability of the software. & 

& 

Any problems with the software should be reported to the author & 
at the address above, although support of the software is not & 
guaranteed. & 

& 


1055 


1060 


1070 


\ ERRFLAG% =0% fi 

\ GOTO 1040 & 

& 

GOTO 106 0 IF KB% > 0% AND KB% <= MAX.KB% fi 

1 make sure it's a legal keyboard fi 

\ PRINT "You cannot change the console (KB0:)" IF KB% =0% & 

\ PRINT "Keyboard # ";KB%;" is not configured on this system" & 

IF KB% <> 0% fi 

\ GOTO 1040 fi 

1 tell user of the goof - and reprompt & 

KB% = KB% * 2% & 

\ KB.DDB% = PEEK(KB0.DDB% + KB%) & 

! get the requested keyboard's DDB. fi 

\ TTINTF% = PEEK(KB.DDB% + 30%) & 

! ..and it's terminal interface flag fi 

\ PRINT "This keyboard is currently set to "; & 

\ PRINT "modem." IF (TTINTF% AND 16384%) & 

\ PRINT "local." UNLESS (TTINTF% AND 16384%) & 

1 tell the user how it’s currently setup as & 

PRINT "Change this line to LOCAL/MODEM <Modem> "; fi 

\ 1$ = FNI$ UNLESS ERRFLAG% & 

\ GOTO 1080 UNLESS ERRFLAG% & 

\ ERRFLAG% =0% & 

\ GOTO 1040 & 


MODIFICATION HISTORY 


fi. 

& 

& 

& 


VER/ED EDIT DATE REASON & 

& 

fit 


GENERAL DESCRIPTION 

ON20FF will turn ON/OFF the modem bit on the requested 
keyboard line. This is accomplished by re-writing the 
TTINTF (terminal interface flag) of the requested 
keyboard line. Since this program does poke memory it 
can only be ran sucessfully from [1,1] 

MAIN CODING 


& 

& 

& 

& 

fi. 

& 

& 

& 


1080 MODEM% = -1% fi, 

\ MODEM% = NOT(ASCII(CVT$$( I $, 3 2% )) = 76%) IF LEN(I$) & 

1 the default is MODEM unless the user requested & 

J LOCAL status & 

& 

1090 GOTO 32767 IF MODEM% AND (TTINTF% AND 16384%) fi. 

! what? the user requested to change to a MODEM status fi< 

! on an already MODEM line - scram fi, 

\ GOTO 32767 IF NOT(MODEM%) AND (TTINTF% AND 16384%) <> 16384% fi, 
\ NEW.TTINTF% = TTINTF% OR 16384% IF MODEM% fi, 

\ NEW.TTINTF% = NOT(NOT(TTINTF%) OR 16384%) IF NOT(MODEM%) fi. 

2000 POKES = CHR$(6%) J FIP call code & 

+ CHR$(-6%) 1 POKE memory fi, 

+ CHR$ (KB.DDB% + 30%) ! address to POKE at fi. 

+ CHR$(SWAP%(KB.DDB% +30%))1 swap of the above address fi, 

+ CHR$(NEW.TTINTF%) ! value to POKE fi, 

+ CHR$(SWAP%(NEW.TTINTF%))1 swap of the value fi, 

& 


ON ERROR GOTO 19000 fi, 

! establish the standard error handling fi. 

\ PRINT IF CCPOS(0%) <> 0% fi, 

! return KB to left margin fi, 

\ ID$ = "V7.0-07" fi, 

1 set up the version ID tag fit 

PRINT "ON20FF";CHR$(9%);ID$;CHR$(9%); fi, 

CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(0%)),3%),4%) fi, 

l indentify ourself w/version ID tag & 

DIM MONITORS (30%) ,MONITOR2% (30%) & 

\ CHANGE SYS(CHR$(6%)+CHR$(-3%)) TO MONITORl% & 

1 first part of the monitor tables fi, 

\ MONITORl%(1%) = MONITORl%(1%) + SWAP%(MONITORl%(I%+1%)) & 

FOR 1% = 5% TO 29% STEP 2% fi, 

! swap those bytes that need to be fi, 

\ CHANGE SYS(CHR$(6%)+CHR$(-12%)) TO MONITOR2% & 

! second part of the monitor tables & 

\ MONITOR2%(1%) = MONITOR2%(1%) + SWAP%(MONITOR2%(1% +1%)) & 

FOR 1% = 3% TO 29% STEP 2% fi, 

! swap here also & 

& 

MAX.KB% = MONITORl%(3%) fi, 

1 maximum # of keyboard on this system & 

\ DEVOKB% = MONITOR2%(9%) fi, 

\ DEVPTR% = MONITORl%(7%) fi, 

\ KB0. DDB% = PEEK(DEVPTR% + DEVOKB%) fi, 

! KB0: DDB fi, 

fi, 

PRINT "Keyboard #: "; & 

1 request a keyboard line fi, 

\ KB$ = FNI $ UNLESS ERRFI.AG% fi 

\ GOTO 1050 UNLESS ERRFLAG% fi 

\ GOTO 32767 & 

KB% = VAL(KB$) UNLESS ERRFLAG% & 

1 get the keyboard into correct form & 

\ GOTO 1055 UNLESS ERRFLAG% & 

\ PRINT ERT$(ERRFLAG%) & 

! let the user know of an error & 


2010 T$ = SYS(POKES) UNLESS ERRFLAG% & 

I POKE it & 

\ GOTO 2020 UNLESS ERRFLAG% & 

\ PRINT "You must be in account [1,1]" IF ERRFLAG% = 10% & 

\ PRINT ERT$(ERRFLAG%) IF ERRFLAG% <>10% & 

\ GOTO 32767 IF ERRFLAG% fi, 

! let the user know if an error occurs during the POKE & 

! and just scram & 

2020 PRINT "Change sucessful." & 

\ GOTO 1040 & 

I let the user know everything is OK. & 

19000 ERRFLAG% = ERR fi, 

\ ERRLINE% = ERL fi, 

\ ERRPROGS = ERN$ fi, 

\ RESUME IF ERRLINE% < 10000% OR ERRLINE% > 28999% & 

\ RESUME 19010 & 

19010 RETURN fi, 

1 & 

! MASTER ERROR ROUTINE fi 

1 If the error occurred in the main program just resume fi 
! to the offending line. If an error occurred within a & 

! subroutine then return from the subroutine with ERRFLAG% & 
! set to indicate subroutine failure. & 

1 & 

20000 DEF FNI$ fi, 

! get a line of input from the keyboard & 

\ GOSUB 20010 & 

\ FIELD #0%, RECOUNT AS X$ & 

\ FNI$ = "" & 

\ FNI$ = CVT$$(X$,5%) UNLESS ERRFLAG% & 

\ GOTO 20020 & 

20010 GET #0% fi 

\ RETURN fi 

20020 FNEND & 

& 

32767 END & 






March 1981 page 41 

RSTSPROFESSIONALRSTSPROFESSIONAUCTSF^OFESSIONAU^STSPROFESSIONALRSTSPROFESSIONAl^ 


1 

10 


90 

100 

200 

900 

1000 

1020 

1040 

1200 

1220 

1240 

1280 

1600 

1880 

2000 

2020 

2040 


2060 


2064 

2080 

2100 

2140 

2190 


FICHE.BAS 

By Scott Banks and Dave Mallery 


EXTEND 

FICHE.BAS fi. 

& 

GENERALIZED FICHE TAPE GENERATOR & 

& 

THIS PROGRAM WILL TAKE ONE OR MORE ASCII PRINT FILES & 
FOR INPUT AND CREATE AN EBCDIC MAGTAPE SUITABLE FOR FICHE & 

PRODUCTION. 6, 

& 

EACH INPUT FILE IS SEPARATED BY A SINGLE (EOF) TAPE & 

MARK. THE TAPE IS WRITTEN AT 1600 BPI. & 

& 

THE OUTPUT TAPE UNIT IS REQUESTED AT RUN TIME. & 

FILE NAMES ARE INPUT PARAMETERS ALSO. SWITCHES ALLOW OUTPUT & 
FORMAT CHANGES. AN INDIRECT COMMAND FILE MAY BE SPECIFIED. & 

& 

SWITCHES MUST APPEAR ON INDIVIDUAL LINES. THEY REMAIN & 

IN EFFECT UNTIL ANOTHER OCCURS. THE FOLLOWING ARE ALLOWED, & 
SHOWN WITH THEIR DEFAULT VALUES: & 

& 

PROVIDES 132 COLUMNS (133 W/PRINT CTRL) & 

& 

TAPE WRITTEN WITH 20 LOGICAL RCRDS/BLK & 

& 

REWIND-AND-OFFLINE WHEN ALL DONE JOB & 
(USE 'RW:NO' TO CANCEL THIS) & 

& 

ALLOW LOWER CASE LETTERS & 

(USE 'LC:NO' TO FORCE THEM TO UPPER) & 

& 

IF AN INDIRECT COMMAND IS TO BE USED, IT IS ENTERED & 

IN RESPONSE TO THE FIRST INPUT FILE REQUEST. THE FORMAT: & 

& 

@<f ilespeO AN EXTENSION OF ' .CMD' IS THE DEFAULT & 

GOSUB 19600 


DIM LST,CTL$(127), LST.TXTS(127) & 

! 


F.CMX% = 1% 


! FOR CMD FILE 

& 

\ F.LST% = 2% 



& 

\ F.MAG% = 3% 



(, 

\ F.CMD% = KB% 


! ASSUME KB: 

& 

PRINT #KB% 



& 

\ PRINT #KB%, 1 

'Fiche VI.2' 


& 

\ PRINT #KB% 



& 

GOSUB 2000 


I OPEN MAGTAPE 

& 

GOSUB 4000 


l DEFAULT PARAMETERS 

& 

GOSUB 5000 


! SET UP EBCDIC XLATE 

& 

GOSUB 3000 


! GET NEXT FILESPEC 

& 

\ GOTO 1600 IF 

E% 


& 

GOSUB 4200 


1 SETUP WORK AREA 

& 

GOSUB 4400 


l BUILD TAPE 

& 

GOTO 1200 



& 

GOSUB 2800 


1 CLOSE MAGTAPE 

& 

GOTO 32767 



& 


OPEN MAGTAPE & 


/RL:132 
/BL:20 
/RW:YES 

/LC:YES 


PRINT #KB%, 'Magtape? '; & 

\ INPUT #KB%, F.MAG$ & 

! DO FILENAME STRING SCAN TO SET FLAG WORD 2 & 

1 & 

MAG.FL2% = SWAP%(CVT$%(RIGHT( ! ERR -> 2100 & 

! FILENAME SCAN & 

SYS(CHR$(6%)+CHR$(-10%)+F.MAG$),29%))) ! FLAG WORD 2 & 

\ GOTO 2140 IF MAG.FL2% AND 2047% 1 NO NAMES & 

OR MAG.FL2% < 0% ! BAD LOGICAL & 

\ GOTO 2140 UNLESS MAG.FL2% AND 8192% ! GOOD DEVICE & 

\ GOTO 2140 UNLESS (STATUS AND 255%) =14% ! MAGTAPE & 

! 

OPEN F.MAG$ FOR INPUT AS FILE F.MAG%, 1 ERR -> 2100 & 

RECORDSIZE 8192%, MODE 256% & 

\ GOTO 2140 UNLESS STATUS AND 256% ! DEMAND NFS & 

\ Z% = MAGTAPE(7%,0%,F.MAG%) ! MAG STATUS & 

\ IF Z% AND (1024% + 512% + 32%) & 

THEN E% = 14% l HUNG OR WRITE LOCKED & 

\ GOTO 2100 & 

! 

IF (Z% AND 256%) =0% & 

THEN PRINT #KB%, 'Warning - tape not at load point' & 

\ PRINT #KB% & 

! 

GOTO 2190 S, 

l 

PRINT #KB%, FNE$(E%); ' - '; F.MAG$ ! HANDLE ERRORS & 

\ GOTO 32767 & 

l 

PRINT #KB%, '?Non-file-structured magtape required' & 

\ GOTO 32767 S. 

1 

RETURN S. 


1 


2800 

1 

CLOSE MAGTAPE 


& 

2820 


E% = MAGTAPE(1%,0%,F.MAG%) ! 

REWIND AND OFF-LINE 

& 



IF MAG.RWD% 


& 


\ 

CLOSE F.MAG% 


& 

2990 


RETURN 


& 

3000 

i 

GET NEXT INPUT FILESPEC 


& 

3020 

1 

E% = 0% 


& 


\ 

PRINT #KB%, 'Input file? IF F.CMD% = 

KB% 

& 

3030 

! 

INPUT LINE #F.CMD%, Z$ ! 

EOF -> 3190 

& 


\ 

F.LST$ = CVT$$(Z$,-l%-64%) 


& 


\ 

PRINT #KB%, '--> '; F.LST$ 


& 



UNLESS F.CMD% = KB% 


& 

3040 

1 

IF LEFT(F.LST$,1%) = *8' 1 

INDIRECT CMD FILE 

6 



THEN F.CMD$ = RIGHT(F.LST$,2%) 


& 


\ 

GOSUB 3200 1 

OPEN CMD FILE 

& 


\ 

GOTO 3020 


& 

3050 

1 

GOTO 3100 UNLESS LEFT(F.LST$,1%) = '/' 

! A SWITCH? 

& 


\ 

IF LEFT(F.LST$,4%) = '/RL:' 

1 RECORD LENGTH 

& 



THEN LST.LEN% = FNVAL(RIGHT(F.LST$,5%)) 


& 


\ 

GOTO 3090 IF LST.LEN% < 1% 


& 



OR LST.LEN% > 255% 


& 


\ 

GOTO 3020 


& 

3060 

1 

IF LEFT(F.LST$,4%) * '/BL:' ! 

BLOCKING FACTOR 

& 



THEN LST.BLF% = FNVAL(RIGHT(F.LST$,5%)) 


& 


\ 

GOTO 3090 IF LST.BLF% < 1% 


& 



OR LST.BLF% > 128% 


& 


\ 

GOTO 3020 


& 

3070 


IF F.LST$ = '/RW:NO' I 

NO REWIND REQUEST 

& 



THEN MAG.RWD% = 0% 


& 


\ 

GOTO 3020 


& 

3072 

1 

IF F.LST$ = '/RW:YES' ! 

REWIND WHEN DONE JOB 

& 



THEN MAG.RWD% = -1% 


& 


\ 

GOTO 3020 


& 

3080 


IF F.LST$ = '/LC:YES' 1 

ALLOW LOWER CASE 

& 



THEN TBL.LOW% = -1% 


& 


\ 

GOSUB 5000 1 

BUILD XLATE TABLE 

& 


\ 

GOTO 3020 


& 

3082 


IF F.LST$ = '/LC:NO' 1 

FORCE ALL UPPER CASE 

& 



THEN TBL. LOW% = 0% 


& 


\ 

GOSUB 5000 ! 

BUILD XLATE TABLE 

& 


\ 

GOTO 3020 


& 

3090 

! 

PRINT #KB%, 1 ?lllegal switch or value - 

'; F.LST$ 

& 


\ 

GOTO 3020 


& 

3100 


OPEN F.LST$ FOR INPUT AS FILE F.LST%, 

1 ERR -> 3180 

& 



RECORDSIZE 4096%, 

& 



MODE 8192% 

& 

3160 


GOTO 3190 


& 

3180 


PRINT #KB%, FNE$(E%); ' F.LST$ 

! HANDLE ERRORS 

& 


\ 

j 

GOTO 3020 


& 

3190 


RETURN 


& 

3200 

1 

| 

OPEN INDIRECT COMMAND FILE 


& 

3220 


F.CMD% = F.CMX% 1 

SAY IT'S THERE 

& 


\ 

F.CMD $ = F.CMD$ + '.CMD' ! 

DEFAULT EXTENSION 

& 



UNLESS INSTR(1%,F.CMD$,'.' 

) 

& 

3240 


OPEN F.CMD$ AS FILE F.CMD%, MODE 8192% 

1 ERR -> 3300 

& 

3280 


GOTO 3390 


& 

3300 

1 

PRINT #KB%, FNE$(E%); ' - '; F.CMD$ 

! HANDLE ERRORS 

& 


\ 

GOTO 32767 


& 

3390 


RETURN 


& 

4000 

! 

i 

DEFAULT PARAMETERS 


& 

4020 


LST.LEN% = 132% ! 

LINE LENGTH (NOT 

& 



! 

INCL PRINT CTRL) 

& 


\ 

LST.BLF% = 20% ! 

BLOCKING FACTOR 

& 


\ 

MAG.RWD% = -1% ! 

REWIND WHEN DONE 

& 


\ 

TBL.LOW% = -1% 1 

ALLOW LOWER CASE 

& 

4190 


RETURN 


& 

4200 

! 

SETUP WORK AREA 


& 

4220 


LST.CNT% = (LST.LEN% + 1%) * LST.BLF% 


& 

4240 

! 

FIELD #F.MAG%, LST.CNT% AS LST.BUF$ 

& 


\ 

FIELD #F.MAG%, (LST.LEN% + 1%) * 

1% AS D$, 

& 


1% AS LST.CTL$(1%), & 

LST.LEN% AS LST.TXT$(I%) & 
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Fully 

compatible 

systems anc j peripherals 


NRWM05 

300 MB & controller 

$20,500 

NRJM05 

300 MB & controller 

$18,800 

NRM05 

300 MB slave drive 

$13,600 

NRWP06 

200 MB & controller 

$19,600 

NRJP06 

200 MB & controller 

$17,900 

NRP06 

200 MB slave drive 

$12,600 

NRWM03 

80 MB & controller 

$14,800 

NRJM03 

80 MB & controller 

$13,100 

NRM03 

80 MB slave drive 

$ 7,900 

NTJ45 

45 IPS type & controller 

$ 7,300 

NTJ75 

75 IPS type & controller 

$ 8,600 

NTJ125 

125 IPS type & controller 

$ 9,800 


O 


11 /70,11/44,11 /34,11/23, VAX systems 

IMOR DATA 

Nationwide installation and maintenance 
4433 27th Ave. W„ Seattle, WA 98199 

Toll Free 800-426-2929 In Washington 206-282-1170 


DEC 

RSTS/E USERS 

From one of the pioneers in commercial 
data processing using RSTS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including: 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 

• FIXED ASSETS 

For complete details, contact us at: 

Plycom services, inc. 

P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 



FOR 1% - 0% TO LST.BLF% - 1% 


4390 

4400 

4420 

4440 

4460 

4480 


4520 

4580 

4590 

4600 

4620 


4720 

4740 


4780 

4790 

4800 

4840 

4880 

4990 

5000 

5020 


BUILD TAPE 

LSET LST.BUFS = •' 

FOR I.LST% = 0% TO LST.BLF% - 1% 

INPUT LINE tF.LST%, LST.LINS 
LSET LST.CTL$(I.LST%) = '1' 

IF ASCII(LST.LINS) = 12% 
LSET LST.TXTS(I.LST%) * LST.LINS 

NEXT I.LST% 

GOSUB 4600 
GOTO 4420 

GOSUB 4600 IF I.LST% 


CLOSE F.LST% 

GOSUB 4800 

STOP UNLESS MAGTAPE( 5% , 2% ,F.MAG%)«1% 
FOR 1% = 1% TO 2% 


I EOF -> 4500 


1 XLATE, PUT TO MAGTAPE & 


I XLATE, PUT TO MAGTAPE & 
I IF PARTIAL BUFFER & 


1 DONE THIS LISTING 


1 WRITE 3 EOF MARKS 
I BACKSPACE 2 OF 'EM 


TRANSLATE TO EBCDIC, PUT TO MAGTAPE 

LSET LST.BUFS = XLATE(LST.BUF$,TBL.EBC$) 
PUT IF .MAG%, COUNT LST.CNT% 

GOTO 4790 


I EOT -> 4700 


GOSUB 4800 

PRINT IK B% , 'Mount next reel on 
E% - MAGTAPE(1%, 0%, F.MAG%) 
SLEEP 5% 

Z% - MAGTAPE(7%, 0%, F.MAG%) 
GOTO 4740 IF Z% AND 32% 


1 WRITE 3 EOF MARKS 
'; F.MAGS 


1 REWIND AND OFFLINE 


1 GET DEVICE STATUS 
1 TILL ONLINE AGAIN 


IF 

THEN 


Z% AND 1024% 
PRINT #KB% , 
GOTO 4720 


1 WRITE-LOCKED 


'Remove write ring on ; F.MAGS 


IF (Z% AND 256%) = 0% l DEMAND LOAD-POINT 

THEN PRINT #KB%, F.MAGS; ' not at load-point' 

GOTO 4720 

PRINT #KB%, 'Tape was successfully mounted on F.MAGS 
RETURN 

WRITE 3 EOF MARKS, EVEN ACROSS PHYSICAL EOT 
FOR 1% - 1% TO 3% 

Z% * MAGTAPE(2%, 0%, F.MAG%) J EOT -> 4880 

NEXT 1% 

RETURN 

SETUP ASCII-EBCDIC TRANSLATE TABLE 


TBL.NUMS 

TBL.NUMS 


TBL.LETS 
TBL.LETS 


TBL.NUMS + CHR$(1%) 

FOR 1% = 240% TO 249% 


TBL.LETS + CHR$(1%) 

FOR 1% = 193% TO 201% 
TBL.LETS = TBL.LETS + CHR$(I%) 


1 NUMBERS 0-9 

1 LETTERS A-I 
1 LETTERS J-R 


\ TBL.LETS 


\ TBL.LOWS 
\ TBL.LOWS 


\ TBL.LOWS 
\ TBL.LOWS 


\ TBL.LOWS 
! 

TBL.EBCS 


FOR 1% 
TBL.LETS + 
FOR 1% 

TBL.LOWS + 
FOR I%* 
TBL.LOWS + 
FOR 1% 
TBL.LOWS + 
FOR 1% 


* 209% TO 217% 
CHR$(1%) 

■ 226% TO 233% 

CHR$(1%) 

129% TO 137% 
CHR$(1%) 

* 145% TO 153% 
CHR$(I%) 

162% TO 169% 


TBL.LETS UNLESS TBL.LOW% 


\ TBL.EBCS 


5190 

19600 



STRINGS(32%,6 4%) 

! 0- 31 

CTRL CHARS 

& 

+ 

CHRS( 64%) 

+ 

CHRS( 90%) 

! 32- 33 


& 

♦ 

CHRS(127%) 

+ 

CHRS(123%) 

! 34- 35 

" * 

& 

+ 

CHRS( 91%) 

+ 

CHRS(108%) 

! 36- 37 

s % 

& 

+ 

CHRS( 80%) 

+ 

CHRS(125%) 

I 38- 39 

& ' 

& 

+ 

CHRS( 77%) 

+ 

CHRS( 93%) 

! 40- 41 

( ) 

& 

♦ 

CHRS( 92%) 

+ 

CHRS( 78%) 

! 42- 43 

* + 

& 

+ 

CHRS(107%) 

+ 

CHRS( 96%) 

! 44- 45 

, - 

& 

+ 

CHRS( 75%) 

+ 

CHRS( 97%) 

! 46- 47 

. / 

& 

+ 

TBL.NUMS 



! 48- 57 

NUMBERS 

& 

+ 

CHRS(122%) 

+ 

CHRS( 94%) 

1 58- 59 

• • 

& 

+ 

CHRS{ 76%) 

+ 

CHRS(126%) 

! 60- 61 

< = 

& 

+ 

CHRS(110%) 

+ 

CHRS(111%) 

I 62- 63 

> ? 

& 

+ 

CHRS(124%) 



1 64 

0 

& 


TBL.EBCS + 

TBL.LETS 

1 65- 90 

LETTERS 

& 

+ 

CHRS(173%) 

+ 

CHRS(224%) 

! 91- 92 

[ \ 

& 

+ 

CHRS(189%) 

+ 

CHRS( 95%) 

1 93- 94 

1 ? 

& 

+ 

CHRS( 96%) 

+ 

CHRS(125%) 

1 95- 96 


& 

+ 

TBL.LOWS 



l 97-122 

LOWER CASE 

& 

+ 

CHRS(139%) 

+ 

CHRS(106%) 

! 123-124 

{ 1 

& 

+ 

CHRS(155%) 

+ 

CHRS(161%) 

I 125-126 

} " 

& 

+ 

CHR$( 64%) 



! 127 

RUBOUT 

& 

i = 

TBL.EBCS + 

TBL.EBCS 

! 128-255 

(PARITY BIT) 

& 

S T A N D A R 

D 

I N I T I A 

L I Z A T 

ION- 

& 

& 


LETTERS S-Z 


LOWER CASE A-I 
LOWER CASE J-R 


LOWER CASE S-Z 
FORCE TO UPPER CASE 


! 

I > — 

ON ERROR GOTO 19800 
\ KB% =12% 

\ OPEN 'KB;' AS FILE KB%, 
\ RETURN 
1 


19800 

I > - 

E%=ERR 

- L O 

c / 

\ L E R 

R O 

R T R 

APS - 

1 

19810 

RESUME 

2100 

IF 

ERL=2040% 




1 MM: SYS() SCAN 

19812 

RESUME 

2100 

IF 

ERL=2060% 




1 MM: OPEN 

19820 

RESUME 

3190 

IF 

ERL-3030% 

IF 

E% *11% 


1 KB: EOF 

19830 

RESUME 

3180 

IF 

ERL=3100% 




1 LISTING EOF 

19840 

RESUME 

3300 

IF 

ERL-3240% 




I CMD FILE OPEN 

19850 

RESUME 

4500 

IF 

ERL-4440% 

IF 

E%«11% 


1 LISTING EOF 

19860 

RESUME 

4700 

IF 

ERL=4620% 

IF 

E% =4% 


1 MAGTAPE PUT 

19870 

RESUME 

4880 

IF 

ERL=4840% 

IF 

E% =4% 


1 WRITE MAG EOF 

19990 

GOTO 32000 






1 

20000 

(>- 

• S T 

A fci n a d r% 


O U T I 



20060 

! 

! > FNVAL 


COMPUTES VAL() 

, ERROR 

N E S 

IN E% 

1 


! ERR = > 20068 


20068 

32000 


32020 

32500 


32560 

32767 


1 

DEF FNVAL(ZS) 

\ E%, FNVAL = 0% 

\ FNVAL = VAL(ZS) 

I 

FNEND 
l 

! > - 
! 

RESUME 20068 IF ERL*20060% 

ON ERROR GOTO 0 & 

\ STOP & 

! 

DEF FNE$(E%)=CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(E%)),3%),5%) 


STANDARD ERROR TRAPS - s, 

l FNVAL 


END 
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RSTS/E MONITOR INTERNALS 

FART 1 

By Mike Mayfield, Northwest Digital Software, Box 2-743, Newport, WA 99156 


For many years RSTS users have been pleading with 
DEC to produce a manual describing the internal work¬ 
ings of the RSTS/E monitor. However, DEC is in a dif¬ 
ficult position. If they published such a manual some 
people would complain if DEC later made something in 
the monitor incompatable with the current version. 

This is where we in the user community come in. I’m 
willing to share some of the information I've gathered in 
my work with RSTS over the past eight years. 1 hope this 
information proves useful. 

This is the first of four articles that will describe the 
internals of RSTS/E V7.0. All the major functions will be 
described, including job control, memory control and file 
and device handling. 

The articles will be broken into four parts as 
follows: 

Part 1: 1. Job Control 

JOBTBL—Job table 

JDB—Job data block one 

JDB2—Job data block two 

IOB—I/O data block 

WRK—Work block 

Fixed memory locations 

JBSTAT, JBWAIT—Job status tables 

Part 2: 2. Memory Control 

MCB—Memory control sub-block 
MEMLST, RESLST—Memory control lists 
RTS—Runtime system descriptor block 
NULRTS—Disappearing RSX RTS 
RTSLST—RTS control list 
LIB—Resident library descriptor block 
LIBLST—Library control list 
WDB—Window descriptor block 

Part 3: 3. File Control 

SCB—Small file control block 
FCB—Large file control block 
FCBLST—File control list 
WCB—Window control block 

4. Device Control 

DDB—Device data block 
DEVNAM—Device name table 
DEVCNT—Device unit count table 
DEVPTR—Device pointer table 
DEVTBL—Device retrieval table 
LOGNAM—Logical device name table 
UNTCNT—Disk status table 


Part 4: 5. Send-Receive 

RIB—Receiver ID block 
ERLRIB—ERRLOG RIB block 
SNDLST—Receiver control list 
PMB—Pending message block 

6. Concise Command Language 
CCL—CCL definition block 
CCLLST—CCL control list 

7. Miscellaneous 

Since the information described in these articles is 
intended primarily for systems programmers it will be 
presented in the form of a reference manual. My 
apologies to those of you who are just looking for a 
general understanding of RSTS and come away bleary- 
eyed. 

If you plan to use this information to access monitor 
table information from an application program please 
remember that DEC may change this information at any 
time, so write your programs accordingly. They've 
changed things in every release so far. There's no reason 
to think they won't do it again. 

Enough said. Let's get inside RSTS. 


1.0 JOB CONTROL 

RSTS can support up to 63 simultaneous jobs. Each 
of these jobs can be either a user at a terminal or a 
detached program. The job control structures allow 
RSTS to share resources (such as CPU time) properly 
among all users. In addition they provide the means to 
access the information necessary for almost every other 
service provided by the monitor, such as device and file 
handling. 

For example, the scheduler uses the information in 
the job descriptor block to determine which job to run 
next and what run burst to assign it. The memory 
manager uses the memory control sub-block and the 
residency quantum to set up the memory mapping 
registers and perform swapping, if necessary. 

The job control structures consist of a combination 
of tables and blocks. The size of the tables is determined 
by the number of jobs specified at sysgen time. The size 
of a block is typically 16 words. 

The tables contain one word for each possible job on 
the system. As new jobs are created and removed, infor- 
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mation in the tables is changed but the size of the tables 
remain the same. 

The job control blocks, on the other hand, exist only 
while a job exists. They are created (from small buffers) 
when a job is first created and deleted when the job is 
removed (ie. by logging out). 

The location of specific tables can be determined us¬ 
ing the GET MONITOR TABLES SYS calls. Once you know 
where a table starts, the values within the table can be 
accessed by adding the required offset to the starting 
address of the table. The following example gets the ad¬ 
dress of the Job Data Block (JDB) for job 5 (see section 

1.1 and 1.2 for information about JOBTBL and JDB): 

10 JOBTBL% = SWAP%(CVT$%(MID(SYS(CHR$(6%) + CHR$(-3%)). 11 %.2%))) 
!Get starting address of job table (JOBTBL) 

20 JDBPTR% = PEEK(JOBTBL% + (5% *2%)) 

!Get pointer to JDB for job 5 from JOBTBL 


1.1 JOBTBL—JOB TABLE 

The Job Table is the root of the job control struc¬ 
tures. It points to the Job Data Block which, in turn, 
points to the other job related blocks. 

JOBTBL contains one entry for each possible job on 
the system. The job control information for each job can 
be accessed by using the job number times two as an of¬ 
fset from the beginning of JOBTBL. The value found at 
that location will be the address of the Job Data Block 
(JDB) for that job. If a 0 is found at that location there is 
currently no job with that job number. 

The first word of JOBTBL (at offset 0) is always a 0. 
This word corresponds to the entry for the null job, job 
0. The last word in the table will always be -1 to signify 
the end of the table. Thus, the total length of JOBTBL, in 
words, is JOBMAX (the maximum number of jobs, 
specified at sysgen time) plus 2. 


1.2 JDB—JOB DATA BLOCK ONE 

The Job Data Block (JDB) contains the most com¬ 
monly used information about a job. It is pointed to be 
the entry in JOBTBL corresponding to its job number. 
The JDB, in turn, points to the three other job control 
blocks for the job: JDB2, I0B and WRK. 

The scheduler uses JDPRI and JDBRST to determine 
which job to run next. The memory manager uses 
JDMCTL. JDSIZE. JDSIZM and JDSIZN to set up the 
memory mapping registers and to schedule a swap-in. 
The swapper uses JDRESQ, JDSWAP, JDMCTL and 
JDSIZE to swap jobs in and out of memory. The EMT 
handler uses JDIOST, JDFLG and JDWRK to process 
system and I/O calls. 

Offset Symbol Description 

0 JDIOB This word contains the address of 
the I/O data block (I0B) for this job 
(see section 1.4). 


Symbol Offset Offset Symbol 




1 

t 

Pointer 

to IOB 

1 0 

JDIOB 



1 ■ 
I 

I 

Primary job 

status flags 

1 2 

JDFLG 

JDPOST 

5 

1 ■ 
1 
i 

Posting mask 

| IOSTS for job 

1 4 

JDIOST 



1 ■ 
1 
i 

Pointer to job's 

work block (WRK) 

i 6 

JDWORK 



l ■ 
1 
i 

Pointer to 

job's JDB2 

1 8 

JDJDB2 

JDSIZN 

11 

l 

1 

1 

New job size 

I Job status flags 

1 10 

JDFLG2 



i 

1 

1 

Pointer to job's RTS descriptor 

1 12 

JDRTS 



I 

1 

1 

Residency 

quantum 

1 14 

JDRESQ 



I 

1 

i 

Memory control sub-block 

1 16 

JDMCTL 



1 

1 

I 



1 18 




1 

1 

1 


| Job size 

| 20 

JDSIZE 



i 

1 

i 



I 22 




1 

1 

1 



1 24 




1 

1 

L3Q bits to set on residency 

1 26 

JDRESB 

JDBRST 

29 

1 

1 

i 

Run burst 

I Priority 

1 28 

JDPRI 

JDSWAP 

31 

i 

1 

Swap slot number 

| Maximum memory 

1 30 

JDSIZM 


2 JDFLG This word contains the main job 
status flags (see section 1.2.1). 

4 JDIOST This byte contains the error code to 

be returned to the program after the 
completion of the current monitor 
call. If the bit JFIOST is set in the job 
status flags (JDFLG), JDIOST is mov¬ 
ed to the location FIRQB + 0 in the 
user program area (accessed by the 
variable ERR in BASIC-PLUS). A value 
of 0 indicates that no error occured. 
(See the System Directives Manual). 

5 JDPOST If the bit JFPOST is set in the job 

status flags (JDFLAG) this byte is us¬ 
ed to specify which information in 
the job's work block (WRK) is to be 
posted to the job's FIRQB or XRB. If 
the value in JDPOST is positive it is 
used as an index into a table of bit 
masks for posting to the FIRQB. If it 
is negative the low order 7 bits are 
used as a bit mask for posting to the 
XRB. 

6 JDWORK This word contains the address of 

the work block (WRK) for this job 
(see section 1.5). 

8 JDJDB2 This word contains the address of 
the second job data block (JDB2) (see 
section 1.3). 

10 JDFLG2 This byte contains the secondary job 

status flags (see section 1.2.2). 

11 JDSIZN This byte contains the size (in K 

words) to make this job the next 
time it is swapped in. The memory 
manager uses this location when a 
job must be swapped out to find ad¬ 
ditional memory as it attempts to 
grow in size. 
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12 JDRTS This word contains the address of 
the runtime system descriptor block 
(RTS) associated with this job. (RTS 
blocks will be discussed in the se¬ 
cond part of this series). Every job 
has a runtime system associated 
with it at all times. If the disappear¬ 
ing RSX runtime system is 
associated with this job. JDRTS will 
contain the address of the null run¬ 
time system descriptor block 
(NULRTS). 

14 JDRESQ This word contains the current 
residency quantum for the job. As 
long as the job's residency quantum 
is non-zero the job is not eligible to 
be swapped out. This is used to 
reduce memory thrashing. When a 
job is first swapped into memory it 
is given a residency quantum. Each 
time the job runs or does disk I/O 
the residency quantum is reduced in 
proportion to the amount of time it 
ran and the estimated time to com¬ 
plete the I/O. When the job goes into 
terminal input wait the residence 
quantum is set to zero to allow the 
job to be swapped if necessary. 

16 JDMCTL These five words are the memory 
control sub-block (MCB) for the job. 
The memory control sub-block will 


20 

26 


28 


29 


30 


31 


JDSIZE 

JDRESB 

JDPRI 

JDBRST 

JDSIZM 

JDSWAP 


be discussed in the second part of 
this series. 

This word (within the memory con¬ 
trol sub-block) contains the size of 
job in K words. 

This word contains the bit mask to 
be posted to the level three queue 
word (L3Q) when the job is made 
resident. It is used by the monitor to 
notify itself when the job is made 
resident so that a function that re¬ 
quired the job to be resident may be 
continued. 

This byte contains the job's priority. 
It can range from -128 to +127. The 
scheduler uses this byte to deter¬ 
mine which job to run next. 

This byte contains the job’s run 
burst. The run burst is the amount 
of time (in clock ticks) the job may 
execute compute-bound before the 
scheduler is called. 

This byte contains the job's private 
memory size maximum. A value of 
255 indicates that the job may use 
up to the system job size maximum. 
If this byte is non-zero it contains 
the slot number within the swap¬ 
ping files that the job is swapped out 
to. If it is zero, the job is either resi¬ 
dent in memory or has no job image. 


RSTS/E SOFTWARE PACKAGES 


■ KDSS, a multi-terminal key-to-disk data 
entry system. (Also available for RSX-11M.) 

■ TAM, a multi-terminal screen-handling 
facility for transaction-processing applica¬ 
tions. (Also available for RSX-11M.) 

■ FSORT3, a very fast sort. Directly sorts 
RSTS/E files containing up to 16 million 
keys or records. Up to 70 times as fast as 
the RSTS-11 Sort package in CPU time. 

■ SELECT, a convenient, very quick package 
for extracting records that meet user-speci¬ 
fied selection criteria. 

■ BSC/DV, a device driver for the DEC DV11 
synchronous multiplexer that handles most 
bisynchronous protocols. 


■ COLINK, a package that links two RSTS/E 
systems together using DMCIIs. Supports 
file transfers, virtual terminals, and across-the- 
link task communication. 

■ DIALUP, a package that uses an asynchro¬ 
nous terminal line to link a local RSTS/E 
system to a remote computer system. Sup¬ 
ports file transfers, virtual terminals, and 
dial-out through a DN11. 

(The performance-critical portions of the first 
five packages are implemented in assembly 
language for efficiency.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 
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1.2.1 JDFLG — Primary Job Status Flags 

The job status flags contained in the word JDFLG 
are defined as follows: 


Bit Symbol Description 


0 


1 


2 


3 


4 


5 

6 


7 


8 

9 


10 


JFPOST The monitor checks this bit before 
making a job runable. If it is set the 
information in JDPOST is used as a 
mask for updating the job’s FIRQB 
or XRB. The information in J2PPTR 
and J2PCNT in JDB2 (see section 1.3) 
may also be used to post large 
amounts of data to a user-defined 
buffer. 

JFIOKY If this bit is set when a job is made 
runable the job's keyword is copied 
into location 400(octal) of the job's 
image and the contents of JDiOST 
are posted to the job’s FIRQB. 

JFRSX If this bit is set the monitor resident 
RSX support is used to post the job 
information indicated by JFIOKY. 
rather than using the standard 
monitor routines. 

JFCC This bit is set when a t C is typed at 
the job’s terminal. When the job 
becomes runable the pseudo-vector 
P.CC (see the System Directives 
Manual) will be taken unless JF2CC 
is also set. 

JF2CC This bit is set when a t C is typed 
and at least one t C has already been 
typed since the job was last run. 
When the job becomes runable the 
pseudo-vector P.2CC will be taken. 

JFPPT If this bit is set when the job is made 
runable the floating point trap 
pseudo-vector. P.FPP, will be taken. 

JFGO If this bit is set when the job is made 
runable the I/O redo condition 
specified by JFREDO is ignored. This 
bit is set if a user types t C during 
an interuptable I/O operation. 

JFREDO If this bit is set when a job appears 
runable (and JFGO is not set) then 
the job is stalled waiting for an I/O 
completion and is not really runable. 

JFSYST This bit is set if the job can use tem¬ 
porary privileges. 

JFFPP if this bit is set the contents of the 
floating point hardware (if any) are 
saved and restored along with the 
job image. This bit is one of the 
keyword bits (see the System Direc¬ 
tives Manual). 

JFPRIV This bit is set if the job is logged into 

a privileged account. It is one of the 
keyword bits. 


11 

12 

13 


14 

15 


JFSYS This bit is set if the job is currently 
running with temporary privileges. 
It is one of the keyword bits. 

JFNOPR This bit is set if the job is running 
non-logged in. It is one of the 
keyword bits. 

JFBIG If this bit is set the job can exceed its 
private memory size (as defined in 
JDSIZM). It is one of the keyword 
bits. 

JFLOCK This bit is set if the job is locked in 
memory. It is one of the keyword 
bits. 

JFSPCL This bit is set if some special pro¬ 
cessing is required before running 
the job. The flag bits in JDFLG2 
specify the special action to be per¬ 
formed. 


1.2.2 JDFLG2 — Secondary Job Status Flags 

The job status flags contained in the byte JDFLG2 
are defined as follows: 


Bit Symbol Description 


0 

1 

2 

3 


4 

5 

6 


7 


JFCTXT This bit is set if the job's context is 
to be saved. 

JFPRTY This bit is set if the special condition 
shown by JFSPCL is a memory parity 
error. 

JFRUN This bit is set if the special condition 
shown by JFSPCL is a new program 
run entry request. 

JFSWPR This bit is set if the special condition 
shown by JFSPCL is a runtime 
system or resident library load 
failure. 

JFSTAK This bit is set if the special condition 
shown by JFSPCL is a stack 
overflow. 

JFSWPE This bit is set if the special condition 
shown by JFSPCL is a swap error. 

JFKIL2 This bit is set when me job is being 
killed and the logout phase of killing 
a job has completed. The second 
phase of a logout, the removal of job 
control information, should be done 
now. 

JFKILL This bit is set if the job is to be killed. 


If JFSPCL is set in JDFLG but no bits are set in 
JDFLG2, the current runtime system is entered at its 
P.STRT or P.CRAS entry point. 


1.3 JDB2 — JOB DATA BLOCK TWO 

The secondary job data block (JDB2) contains infor¬ 
mation about the job that is used less often or is less 


BEG 11 


LSI-11 DISC CONTROLLER, 

Model DQ100, interfaces 2.5,5,10 
i or 20 MB cartridge and fixed platter 
drives in combinations to 80 MB 
• RKV-11/RK05* emulator • handles front load (2315) and/or 
top load (5440) drives • automatic power fail/power down 
media protection • RT-11/RSX-11 compatible. 

LSI-11 EMULATING MASS STORAGE 


10 intelligent hard disc and 
magnetic tape controllers 
offer LSI-11,* 11/2,11/23, 
and PDP-11* single quad slot 
compatibility with up to 60% power saving. 

Only DILOG (Distributed Logic Corporation) exclusive 
automated design, common proprietary architecture and 
sophisticated bipolar jiPs give you • all single board quad 
size products requiring no external power or chassis ... 
just a cable to connect the drive... you don ’t need anything 
else • high reliability • automated self-test including data 
base protect feature and indicator. And at cost savings of 
50% or more. 

LSI-11 MAGNETIC TAPE CONTROLLER, Model 
DQ 120, interfaces 4 industry standard reel-to-reel drives 

• emulates TM11 * • handles 7 and/or 9 track NRZI drives 
to 112.5 ips • selectable DEC or IBM byte order formatting 

• data error checking • RT-11/RSX-11 * compatible 

• extended addressing to 128K words. 

LSI-11 MAGNETIC TAPE COUPLER, Model DQ 
130, interfaces dual density (NRZI/PE) formatted drives 

• emulates TM11 • handles up to eight 9 track 800/1600 
bpi industry standard drives at speeds from 12.5 to 125 ips 

• "streamer” mode capability • software or switch selec¬ 
table density • RT-11/RSX-11 software compatibility. 

LSI-11 MASS STORAGE DISC CONTROLLER, 
Model DQ 200, interfaces any two SMD flat cable inte r-CL* 
face compatible hard disc drives for up to 500 MB 
on-line storage • mix or match compatible 
Winchester, SMD or CMD • variable sector 
size • automatic media flaw compensation 
with bad sector flagging • optimized logical 
to physical unit mapping • implements 
Winchester fixed head option. 

LSI-11 SHUGART SA4000 
WINCHESTER DISC CONTROLLER, 

Model DQ 201, emulates DEC RK* 

• runs drivers under RT-11 and 
RSX-11M* systems 

• compatible 

with 14.5 MB SA4004 or 29 MB 
SA4008 drives • automatic 
media flaw compensation. 


CONTROLLER, Model DQ 202. Cost effective interface of 
two 8 and/or 14-inch Winchesters, SMD or CMD hard disc 
drives without changing controller... 8 to 300 MB capacity 
• RP emulator • automatic media flaw compensation. 

PDP-11 MAGNETIC TAPE CONTROLLER, Model 
DU 120, emulates TM-11 and has same features as Model 
DQ 120 (LSI unit) • software compatible with RT-11, RSX-11, 
RSTS, IAS and MUMPS. 

PDP-11 MAGNETIC TAPE COUPLER, Model 
DU 130, offers features of Model DQ 130 (LSI unit) • RT-11, 
RSX-11, RSTS, IAS and MUMPS software compatible. 

PDP-11 DISC CONTROLLER, Model DU 100 includes 
features of Model DQ 100 (LSI unit) • RT-11, RSX-11, RSTS, 
IAS and MUMPS compatible • emulates RK-11. 

PDP-11 EMULATING MASS STORAGE 
CONTROLLER, Model DU 202, offers same features as 
Model DQ 202 (LSI unit). 



Write or call for detailed product performance 
information, OEM quantity pricing, stock to 30 day 
delivery or warranty data on these DEC 11 
compatible products ... or several soon to be 
announced new DILOG products. 

Distributed Logic Corp., 12800-G Garden 
Grove Blvd., Garden Grove, CA 92643 
Phone (714) 534-8950 
Telex: 681399 DILOG GGVE 

DISTRIBUTED 
ILGGIC I0RP. 



All DILOG \iP Products 
are Low Power, Quad Size 


•Trademark Digital Equipment Corp. 
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with DEC. Just concentrate. 



for tape and disk controllers- 
applying the latest microproces¬ 
sor technology and some sexy 
design to give our customers the 
performance and reliability 
they deserve. 

Our newest achievement 
proves the point. To wit: just one 
hex size board, occupying a 
single Unibus slot, provides up 
to 64 lines for terminals, printers 
or other communications I/O. 
That’s eight times more efficient 
than the DEC approach. 

And our unique system 
organization means maximum 
flexibility. You can daisy-chain 
up to four remote distribution 
panels, expanding in 8 or 16 
line increments all the way to 
64 lines. You can configure any 
8 line group for an RS-232 inter¬ 
face, with modem control a stan¬ 
dard feature. Or you have the 
option of selecting a current loop 


We’ve earned our reputa¬ 
tion by designing and delivering 
dependable, easy to live with 
tape and disk controllers for DEC 
cpus. Products that really showed 
the industry how to do it. 

Now we’ve cleaned up the 
communications I/O morass, 
with a new DH-11 type multiplexer 
for PDP-11 and VAX systems. 

It duplicates all the features of 
DEC’S DH-11. And it goes well 
beyond, delivering improved line 
handling capabilities in a far 
smaller package and at signifi¬ 
cantly lower cost. 

You might say we’re now 
doing for communications con¬ 
trollers what we’ve already done 


The new Emulex CS-11/H really 
concentrates your communications 
I/O Just one hex size board multi¬ 
plexes up to 64 lines 


interface. And because all your 
interface variations are made 
at the distribution panels, no 
additional hardware or cpu 
restructuring is needed when 
you add channels. 

You get everything you got 
from DH-11, such as DMA on 
transmit operation and line format 
flexibility. Naturally, we’re fully 
software transparent and run 
existing DEC diagnostics. 

But we like to do everything 
we do just a little bit better than 
the other guy. So we boosted 
performance to 19.2 K baud per 
line. For peak traffic, we can 
“double fifo’’ to 128 characters 
per 16 lines. Multiple control¬ 
lers can be added for increased 
capacity. You get full 16-bit word 
transfers on DMA operation - not 
just byte transfers. And, of 
course, we’ve taken advantage 
of our system’s high speed 
bipolar microprocessor to build-in 
extensive controller and channel 
self-test and fault indicators. 

We’re concentrating on DEC, 
making the world’s best cpus 
even better with some ingenious 
controllers. We’ve done it for 
tape and disk interfacing. Now 
for communications I/O. We’d 
like to send you all the details we 
didn’t have room to include here. 
So write or call Emulex Cor¬ 
poration. Or, if you just can’t wait, 
contact the Emulex represen¬ 
tative, dealer or distributor near¬ 
est you. 

For immediate, off the shelf 
delivery contact our national 
distributor: First Computer Cor¬ 
poration; Corporate Square, 

825 North Cass Avenue; West¬ 
mont, IL 60559; 312/920-1050. 



EMULEX 


EMULEX CORPORATION 
2001 E. Deere Ave 
Santa Ana, CA 92705 
714/557-7580 
TWX 910-595-2521 
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time critical than the information in JDB. Its primary 
use is for accounting and directory information. 

Symbol Offset Offset Symbol 


J2CPUM 11 


Unposted clock ticks 

1 0 

J2TICK 

CPU time 

■“ 1 

1 2 

J2CPU 

Connect time 

| 

1 4 

J2CON 

Kilo-core-ticks 

1 6 

J2KCT 

Device time 

1 

1 8 

1 

J2DEV 

CPU time MSB | KCT MSB 

1 10 
i 

J2KCTM 


1 12 

J2NAME 

Program name 

1 



1 14 

l 


Default runtime system pointer 

1 16 

I 

J2DRTS 

Receiver ID block pointer 

1 18 

1 

J2MPTR 

Large data posting pointer 

1 20 

1 

J2PPTR 

Large data posting count 

1 22 

1 

J2PCNT 

Project-Programmer number 

1 24 

i 

J2PPN 

DCN of first UFD block 

1 26 

1 

J2UFDR 

Pointer to window descriptor block 

I 28 

i 

J2WPTR 

*T CPU time 

1 30 

J2CPUI 


Offset Symbol Description 


0 


2 


4 


6 


8 


J2TICK This word is incremented at each 
clock interrupt when the job is ex¬ 
ecuting. When the job is descheduled 
this value is converted to the 
equivalent number of 1/10th 
seconds and added to J2CPU. Any 
amount less than 1/10th second is 
left in this word. The units of this 
word depend on how fast the clock is 
interrupting. For a KW11L clock, 
running at 60 hertz, the units are 
1 /60th seconds. 

J2CPU This word contains the low order 16 
bits of the total CPU time used by 
this job through the last time 
J2TICK was posted. The units of this 
value are 1/10th seconds. 

J2C0N This word contains the total connect 
time, in minutes, for this job. Con¬ 
nect time is only computed while a 
job is logged in. 

J2KCT This word contains the low order 16 
bits of the job’s kilo-core-ticks. One 
kilo core tick is the use of 1 K-word 
of memory while executing for 
1 /10th second. Using 2 K-words for 
1 /10th second is two kilo-core-ticks. 

J2DEV This word contains the total device 
time for this job in device-minutes. A 
device-minute is the use of one 
device for one minute. Using two 
devices for one minute is two device¬ 
minutes. etc. 


10 J2KCTM 

11 J2CPUM 

12 J2NAME 


16 J2DRTS 


18 J2MPTR 


20 J2PPTR 


22 J2PCNT 

24 J2PPN 

26 J2UFDR 

28 J2WPTR 


This byte is the high order 8 bits of 
the kilo-core-ticks (see J2KCT 
above). 

This byte is the high order 8 bits of 
the CPU time (see J2CPU above). 
These two words contain the pro¬ 
gram name in RAD50. The program 
name is specified using the .NAME 
system call. All the standard run¬ 
time systems issue this call to post 
the program name each time a pro¬ 
gram is run. The contents of this 
word are for information only, and 
are ignored by RSTS 
This word is the address of the run¬ 
time system descriptor block (RTS) 
of the default RTS for this job. When 
a running program exits, control 
returns to this default RTS. If the 
default RTS is no longer installed 
when the program exits the system 
default RTS is used instead. RTS 
blocks will be described in the se¬ 
cond article of this series. 

If this job is a message receiver, this 
word contains the address of its 
receiver ID block (RIB). If this job is 
not a receiver this word is 0. RIB 
blocks will be described in the fourth 
article of this series. 

This word is used as a pointer to a 
monitor buffer to be used to 
transfer information to or from a 
user program buffer. It is normally 
used for large message send/receive 
buffer transfers. If the lower 5 bits 
of the pointer are 0 the pointer is an 
address into the small buffer area. If 
the lower 5 bits are not 0 the pointer 
is an address into the large buffer 
area that has been rotated left 7 
bits. 

This word specifies the number of 
bytes to transfer to or from the buf¬ 
fer specified by J2PPTR. 

This word contains the job's PPN. 
The low byte contains the group 
number and the high byte contains 
the user number. If the job is not 
logged in this word will be 0. 

This word contains the device cluster 
number (DCN) of the first cluster on 
SYO: of the UFD specified in J2PPN, 
above. The value of this word is 
undefined if the job is not logged in. 
If the job is attached to any resident 
libraries this word contain the ad¬ 
dress of the job’s first window 

... continued on page 58 
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The Other 
Story About 
VAX and VMS 

By Ross W. Miller 

President. Online Data Processing. Inc. 




In 1977 just prior to the VAX being announced, I was 
discussing with a group of people some short-falls of the 
PDP11 computer. (1) Memory Management Concepts; (2) 
Memory Addressability; (3) Shared Memory Protection. 

We also discussed different data types that are re¬ 
quired to do a good job of data processing and the type of 
instructions one should have. I was greatly surprised and 
pleased when I went to the Fall DECUS of that year and 
DEC announced the VAX computer and described what 
was to me an almost perfect hardware design. 

The design of the VAX is one of the best I've seen for 
current technology and it will give a considerable amount 
of flexibility in incorporating new concepts which have yet 
to be developed. Overall I would give DEC very high marks 
for the VAX machine. However, there are some problems. 
The purpose of this article is to provide some insight as to 
where those problems might be found, especially since 
many users are looking to the VAX to alleviate through-put 
problems and avoid costly conversions. Rather than 
spending a lot of time on the positive details of the VAX 
which you can read from all sorts of DEC literature. I’ll take 
a few moments to enlighten you on some of the surprises 
and points of interest that are not discussed by DEC. 

The single largest problem with the VAX computer is 
the fact that the DEC commercial product line people didn’t 
want to become involved in the early design of the VAX 
computer and its operating system. I am sure there are go¬ 
ing to be some people jumping up and down and saying, 
“Miller you are all wrongl. . . we were there." but unfor¬ 
tunately, they weren't there when they needed to be. Many 
things were designed into the VAX computer attempting 
to be sensitive to commercial interest in areas such as the 
ability to handle strings more efficiently, binary coded 
decimal data types and formatting instructions. However, 
DEC missed the boat in designing the operating system for 
commercial applications in such areas as operator inter¬ 
face, facilities for handling printers, record management 
efficiencies and what I would consider some significant 
oversights in the primary migration language for DEC'S 
current customer base. This being VAX BASIC. 
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VAX BASIC — There are some good things and some bad 
things about it. First the good things... they have tried to 
maintain the interactive mode of programming which is a 
very positive feature of BASIC PLUS. Now the bad things... 
they didn't go far enough with the interactive features; 
secondly, it suffers greatly in the area of performance; and 
thirdly, by trying to give the impression that you can make 
minor modifications to your BASIC PLUS code and begin 
executing it in VAX BASIC, you could be misled into doing 
things that will be detrimental in the areas of performance 
and effectiveness use of the VAX machine. 

Unwittingly, many of us who have been exposed to 
BASIC PLUS programming have developed several short¬ 
cuts and concepts on resolving data processing problems 
by automatically taking into account the restrictions that 
BASIC PLUS imposes. By using the same approach to 
develop your VAX BASIC program as you used with the 
BASIC PLUS program, you could be hurting yourself; i.e. 
structuring your program, data types used and, seg¬ 
menting functions that should not be segmented. 
However, you automatically do it to circumvent BASIC 
PLUS restrictions. 

With regard to VAX BASIC performance, we found 
that it is indeed fast in most bench marks, and specifically, 
in doing computational type operations. My point is; In a 
commercial application, a very small portion of your ap¬ 
plication program is actually involved in doing computa¬ 
tion. Commercial applications deal mostly with string 
manipulation and record management functions; 
searching through a file, doing compares, changing data, 
updating information in records, etc. Therefore, it is my 
opinion that most bench marks, that have been run, do not 
reflect the true commercial environment. We have found 
that when applications written in VAX BASIC are com¬ 
pared to BASIC PLUS application of the same type (same 
concepts used) running on the 11 /70, surprisingly the CPU 
time is comparable and this is disappointing. 

In trying to determine exactly where the problems oc¬ 
cur in VAX BASIC performance, we have traced through 
listings and micro-fiche. Many of the specific commercial 
routines that do string manipulation, formatting of data, 
and record management will do a call to a routine to per¬ 
form a function which could have been executed in one to 
three machine instructions. As you trace these calls into 
the run time library, you find that these routines do calls to 
other routines, which do calls to other routines, etc. until 
finally, it gets down to the routine which actually performs 
the function and does the two or three instructions. It then 
starts to do the returns and unwinds. Naturally, all this is 
overhead and can increase the possibility of page faults as 
you wander your way through the mazes of twisty little 
passages, all alike, in the run time library. 

It appears that a PDP11 programmer wrote the VAX 
BASIC programs and got carried away with the idea of 
modular programming forgetting that the VAX had built 
in instructions to accomplish what you want in machine in¬ 
structions. It's not as fast as advertised, but it could be 
much faster. 


DATA BASE MANAGEMENT — The VAX machine is the 
right machine to implement a good DATA BASE manage¬ 
ment system. As of this time, I have not seen a good DATA 
BASE management system for the VAX but nothing in the 
design of the operating system prevents it from being an 
excellent DATA BASE system. One of the major re¬ 
quirements for DATA BASE management is to have a large 
address space and do a reasonable job of cacheing fre¬ 
quently used sections of the DATA BASE. A 16 bit machine 
does not have the address space necessary and can cause 
you to do excessive thrashing of the disk by using DATA 
BASE system. A good DATA BASE system should reduce 
disk access for you. 

RMS — Another significant point, is the use of RMS on the 
VAX computer. RMS is built into the operating system and 
this has its good points and its bad points. The positive 
aspect is they have reduced the overhead for RMS 
significantly from the PDP11 implementation. Those who 
are familiar with RMS on the 11 will be pleased with the 
VAX. However, there is still a significant amount of 
overhead in RMS due to the conservative implementation. 
An example of this is that whenever you do a put of a 
record which is 50 or 60 characters long, it will cause a 
write of the entire block back to the disk. To get better 
performance, it is preferrable to keep mass storage I/O to 
an absolute minimum since that is typically the most time 
consuming operation on a computer. Because of this con¬ 
servative design, it is easy to get into I/O bottlenecks with 
RMS under VAX. 

I am confident that performance improvements are 
being made to the RMS facilities. My biggest concern is 
that the VAX BASIC people do not seem to be concerned 
about performance issues; nor are they interested in pro¬ 
viding additional features which will allow the user to con¬ 
trol performance issues such as the many things that RMS 
will allow you to do but VAX BASIC doesn't provide a clean 
way of accessing. 


VAX SPECIALISTS 

• System Evaluation 

• Special System Adaptations 

• Application Programming 



2/2 years VAX Commercial Experience 
10 years RSTS Experience 


N. 637 Hamilton; Spokane, Wa. 99202 
(509) 484-3400 
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VMS — Furthermore, there are some things in the 
operating system which definitely need to be improved. 

1. If you are connected to a dial up line and you lose 
carrier on that line, your job gets killed. There is 
no way of preventing it. This isn’t very conven¬ 
ient when you are updating multiple files simul¬ 
taneously. 


and other such routines in business applications, we have 
used a few macro coded routines very effectively in 
business applications for forms management and screen 
handling routines which we developed prior to DEC having 
anything available. 

In addition, we found there were some DCL commands 
that were not provided so it was very easy for us to write 

the routines the way 




2. There isn't any 
way of doing a 
detach of a job 
and attaching 
to a job. 

3. There is no way 
to do a force 
to a terminal 
for the system 
manager to 
help naive users 
or to get an X- 
offed LA 180 
started again. 

4. It is not possi¬ 
ble to mount a 
tape under pro¬ 
gram control. 

The only way 
you can mount 
a tape, is at 
VMS DCL level. 

If you can imagine 
a situation in a com¬ 
mercial environment 
where you need to pro¬ 
cess for several hours 
and then mount a tape, 
do further processing, 
change to a different 
tape to continue proc¬ 
essing. you will defi¬ 
nitely have problems 
doing this currently 
under VMS. 

On the positive 
side, spooled printers 
and terminal are great. 

There needs to be 

additional improvements in forms management and con¬ 
trolling who can be an operator for a specific printer, such 
as a remote printer, but these again can be resolved. 

Things such as being able to call routines written in 
any language from any other language is a beneficial 
feature. You can optimize certain functions that are not in 
the native language that you are using but are executed 
frequently. Even though I discourage mixing macro code 


«iif.iaim.rrv 

+PRICE=VALUE 

FOR VAX MEMORY 


- A Full 24-Month Warranty 
(twice the standard) 

- How Can We Afford to do this 

- Simple.. .We build Memory that is a New 
Standard in Reliability. 

Call Us for a Quote: 

Don Johnson 800-538-8510 

408-736-7009 in California 


We also have Full Installation/Maintenance 
Available Throughout the U.S. 


2 


National Semiconductor Corporation MS7C265 
2900 Semiconductor Dr., Santa Clara, CA 95051 
Tel: (408) 736-6994 TWX: (910) 339-9253 


we wanted them and 
provide them for our 
clients as though they 
were part of the stand¬ 
ard DCL set. 

While you may 
think this has been a 
negative report, 1 wish 
to assure you that this 
is not my intent. How¬ 
ever. I do want you to 
be aware of the things 
that are not advertis¬ 
ed or widely known. 
Most of these prob¬ 
lems are a matter of 
presenting them to 
the proper individuals 
to get them fixed or 
modified. Currently. 
DEC definitely needs 
strong input from the 
commercial world. 
DEC'S turnaround time 
however, is IVfe to 2 
years. That means 
that if you put in a 
request right now for 
a new feature or a 
change and DEC ac¬ 
cepts it, you won't see 
it for 1 Vz to 2 years. 
That is the time it 
takes to implement, 
test and distribute 
the new feature or 
change. So ... if you 
wait, you can calculate 
for yourself when it 
will be available. 


In conclusion, I'm 100% behind VAX/VMS; 
but I would caution you to be extremely careful about 
assuming anything about the VAX system, and especially 
how to get performance out of it. We have been bit the 
hardest by using functions that worked extremely well 
on the PDP 11 but when we implemented them on the 
VAX we were actually working against VMS and thereby 
increasing system overhead. 9 
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RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-11 MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-11. 

ROSS/V supports: 

■ The BASIC-PLUS interactive environment. 

■ Concurrent use of multiple run-time systems. 

■ Update mode (multi-user read/write access to 
shared files.) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level. ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment. Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS, PDP-11, VAX-11, and DEC are trademarks of Digital Equipment Corporation. 


(Eastern U.S.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


ROSS/V is available from. 

(Central U.S.) (Western U.S.) 

Interactive Information Systems, Inc. Online Data Processing, Inc. 

10 Knollcrest Drive N. 637 Hamilton 

Cincinnati, Ohio 45237 Spokane, Washington 99202 

(513) 761-0132 (509) 484-3400 



CONTESTANT 

A 
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SCENES 

FROM 

CANADIAN 

DECUS 

1981 





\ftX-H/750. 

Starting today, the size of your program no longer determines 
the size , or price , of your system 

The VAX -11 750 fits countless applications waiting for a new 
kind of computer system 

The architectural breakthrough - 2 gigabytes of program space for 

every user 

The software you need to put large jobs onto a small computer is 

already written 

Hew the VAX-11750 redefines distributed processing to help you 
control costs, increase productivity 


The technotogcai benefit: Price performance and reliability. 



VAX-ll/750. 

Enfin un systeme dont la dimension et le pnx ne dependent plus de 

Tampleur du programme 

Le VAX-11 750 rOpond a une multitude de besoms qu aucun systeme n a pu 

satisfaine jusqu ici. 

Une architecture revoiutiemnaire: 2 miliards d octets d espace - programme 

par utilisateur 

Un logjoei qui vous permet d executer de gros travaux sur un petit ordinateur. 

Une nouvele decentralisation du traitement des donnees qui vous aide a 
mieux contrbler les couts et a augmenter la productivrte 

Atouts technotogiques: Rapport pnx-performance et fiabilite. 
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The Supermarket of Computer Products 

PRESENTS 

Disk Sub Systems Ala Carte 


DEG, DATA GENERAL and Others 

For LSI11? PDP11? PDP11/70? 

VAX? UNIBUS? & MASSBUSf 

*Tradenames of Digital Equipment Corp. 

Featuring: 

• CONTROL DATA'S 

SMD, CMD, MMD, FMD, 

HAWK, LARK, PRINTERS, 

TAPE DRIVES & MEMORIES 

• KENNEDY'S 

WINCHESTERS 
& TAPE DRIVES 

• DATA PRODUCT'S 

PRINTERS 

• CENTURY DATA'S 

TRIDENTS 

Plus a Menu of CONTROLLERS: 

• EMULEX • SYSTEM INDUSTRIES 

• WESTERN PERIPHERALS 

• DILOG • BYTRONIX • RIANDA 

• MCT • DIGIDYNE 



ONLY GF OFFERS THIS 
UNIQUE COMBINATION: 

CUSTOM-TAILORED TO YOUR EXACT 
REQUIREMENTS 
FULL EMULATION 
COST SAVINGS OF 50% 

FAST DELIVERY 

EXPERT INSTALLATION & SERVICE 
OEM DISCOUNTS AVAILABLE 


And these other GF products: Printers & Subsystems; Tape Drives & Subsystems; Computers, Memories and Controllers; 
CRTs, Terminals & Media; Turnkey Business Systems; Software (Operating & Application) 


GEORGE FOLDVARY & ASSOCIATES, INC. 

400 S. Beverly Drive, Suite 310, Beverly Hills, CA. 90212 
(213)551-2840 • TWX 910-490-2511 


VE7 


GF: I am interested in: 

□ Printers □ Tapes 

□ Controllers □ CRTs 

□ Memories □ Media 


I am an: 

□ End user 

□ Institutional 

□ OEM 


Name 
Title _ 


My requirements are: 

□ Immediate □ 3-6 months □ Information only 

My computer is a _ 


Company 
Address __ 
City_ 


. State. 


Zip. 


Telephone 
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RSTS/E Monitor Internals — Part 1 

.. . continued from page 50 

descriptor block (WDB). If the job is 
not attached to any resident 
libraries this word is 0. WDB blocks 
will be described in the second arti¬ 
cle of this series. 

30 J2CPUI This word contains the CPU time us¬ 
ed by this job as of the last time a 
t T mini-SYSTAT was taken. 

1.4 I0B — I/O BLOCK 


information that is normally contained only in the user 
program area. This allows the job to be swappable dur¬ 
ing certain long monitor calls. The work block normally 
is used to store the FIRQB during FIP calls and the XRB 
during I/O transfers. 

1.6 FIXED MEMORY LOCATIONS 

Several fixed locations in low memory within the 
monitor are used to store information about the current¬ 
ly executing job. This information provides a shortcut 
for accessing the most used job control information. The 
information is as follows: 


The I/O block is used to access information about 
each open channel. It contains one entry for each of the 
possible 16 channels. (Note: BASIC-PLUS only allows 12 
channels because channel 0 is the user's terminal and 
channels 13-15 are used internally by the BASIC-PLUS in¬ 
terpreter). 

The IOB is 16 words long. Each word is 0 if the cor¬ 
responding channel is closed and non-zero if it is open. If 
the channel is open this word contains the address of the 
device data block (DDB) for non-disk devices, the win¬ 
dow control block (WCB) for disk files on large-file 
systems or the small file control block (SCB) for disk files 
on small-file systems. 

One exception is the entry for channel 0. This entry 
corresponds to the job's terminal. If the job is running 
detached this entry may still point to a terminal DDB. 
However the ownership byte within the DDB (DDJBNO) 
will not contain this job's job number. 


Symbol Offset Offset Symbol 



DDB 

ptr for 

channel 

0 



1 

1 

0 


DDB , 

, WCB 

or 

SCB 

ptr 

for 

channel 

1 

1 

1 

2 


DDB , 

, WCE 

or 

SCB 

ptr 

for 

channel 

2 

1 

1 

4 


DDB , 

. WCB 

or 

SCB 

ptr 

for 

channel 

3 

1 

1 

6 


DDB, 

. WCB 

or 

SCB 

ptr 

for 

channel 

4 

1 

. | 

8 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

5 

1 

l 

10 


DDB , 

, WCB 

or 

SCB 

ptr 

for 

channel 

6 

1 

1 

12 


DDB , 

, WCB 

or 

SCB 

ptr 

for 

channel 

7 

1 

1 

14 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

8 

1 

. | 

16 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

9 

1 

1 

18 


DDB, 

r WCB 

or 

SCB 

ptr 

for 

channel 

10 

1 

1 

20 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

11 

1 

1 

22 


DDB, 

r WCB 

or 

SCB 

ptr 

for 

channel 

12 

1 

1 

24 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

13 

1 

1 

26 


DDB , 

, WCB 

or 

SCB 

ptr 

for 

channel 

14 

1 

1 

28 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

15 

1 

30 


1.5 WRK — WORK BLOCK 

The work block is a scratch work area used to hold 


Address Symbol Description 


518 


519 


520 


522 


524 


526 


528 


JOB This byte contains the job number 
(times 2) of the currently executing 
job. If this byte is 0 the null job is 
running. In that case the words that 
follow have special meanings, as 
noted. This byte is accessed in 
BASIC-PLUS by PEEK(518%) AND 
255%. 

NEXT If this byte is non-zero it contains the 
job number (times 2) of the job that 
was scheduled to be the current job 
but is not yet swapped into memory. 
This job will start execution im¬ 
mediately upon gaining memory 
residency. In this case the job shown 
in JOB is "sub-scheduled” to make 
use of the available CPU time while 
waiting for the next job to swap in. 
This byte is accessed in BASIC-PLUS 
by SWAP%(PEEK(518%)) AND 
255%. 

JOBDA This word contains the address of 
the job data block (JDB) for the cur¬ 
rently executing job. If JOB contains 
a 0 this word will be 0. 

JOBF This word contains the address of 
the flag word, JDFLG, in the current 
job's JDB. If JOB contains a 0 this 
word will contain the address of a 
dummy value of 0. 

I0STS This word contains the address of 
the JDIOST and JDPOST bytes in the 
current job's JDB. If JOB contains a 0 
this word will contain the address of 
a dummy value of 0. 

JOBWRK This word contains the address of 
the work block (WRK) for the cur¬ 
rent job. If JOB contains a 0 this 
word will be 0. 

J0BJD2 This word contains a pointer to the 
second job data block (JDB2) for the 
current job. If JOB contains a 0 this 
word will contain the address of a 
scratch location to be used for 
J2TICK. 
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530 JOBRTS This word contains the address of 
the runtime system block (RTS) for 
the current job. If the current job is 
using the disappearing RSX runtime 
system this word will contain the ad¬ 
dress of the null RTS descriptor. 
NULRTS. If JOB contains a 0 this 
word will be 0. 

532 CPUTIM This word is the address of the value 
J2CPU in the second job data block 
(JDB2) for the current job. 

534 JOBWDB This word contains the address of 
the first window descriptor block 
(WDB) used by the current job. If the 
current job is not attached to any 
resident libraries, or if JOB contains 
a 0 this word will be 0. 


1.7 JBSTAT, JBWAIT — JOB STATUS TABLES 

Two tables. JBSTAT and JBWAIT. are used to deter¬ 
mine if a job is runable. These tables each have one word 
for every possible job on the system, including the null 
job (job 0). They are accessed by using the job number 
times two as an offset. 

When the scheduler wants to determine whether a 
job is runable it performs a logical AND of the bits in the 
job's JBSTAT entry with the job's JBWAIT entry. If the 
result is non-zero the job is runable. If the result is 0 the 
job is stalled waiting on something and cannot be run. 

When a job stalls for any reason (such as doing I/O) 
the JBSTAT entry corresponding to its job number is set 
to 0 and a bit is set in the corresponding JBWAIT entry 
to show what the job is waiting for. 

Stalling a program for hybernation clears both the 
JBSTAT and the JBWAIT entry. When the job is later re¬ 
attached to a terminal JBWAIT will be updated to some 
non-zero value. 

When an I/O completes or some asynchronous event 
occurs, such as a message receive or sleep timeout, the 
monitor sets an appropriate bit in the job’s JBSTAT 
word. Depending on what the program was stalled for, 
this may or may not make the job runable. However, 
sooner or later the event the job is waiting for will com¬ 
plete and the job will be made runable again. 

The bit values within the JBSTAT and JBWAIT en¬ 
tries have the following values: 

Bit Symbol Description 

0 JS.SY This bit is used for I/O on all syn¬ 
chronous devices. This includes disk. 


floppy disk, magtape, etc. but does 
not include terminals. 

1 JS.KB This bit is used for terminal input. 

2 This bit is assigned at sysgen time 
for devices (such as LP.) that can 
stall and de-stall a job while still pro¬ 
cessing its 1/0. 

3 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

4 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

5 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

6 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

7 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its 1/0. 

8 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

9 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

10 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

11 JSTEL This bit is used for terminal output. 

12 JSFIP This bit is used for FIP (SYS call) 

waits. 

13 JSTIM This bit is used for timeouts from 

various time restricted events, such 
as .SLEEP, terminal input timeout, 
message receive timeout, etc. 

14 JSBUF This bit is used to wait for small buf¬ 

fers when no buffer space is 
available for I/O buffers. 

15 This bit is not currently used but is 
reserved for future use. 

In the next issue: MEMORY CONTROL * 



A wall chart showing the linkages between all tables in the 
RSTS/E monitor is available for $ 1.00. Send your requests 
to Northwest Digital Software, Box 2-743, Newport, WA 99156. 
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WORD PROCESSING 



PDP-11 AND VAX 


MULTI-USER 

Written entirely in MACRO-11 machine language, you can 
have up to 90 people using the full power of WS-11 word 
processing simultaneously without impairing the perfor¬ 
mance of data processing. 


FROM PDT TO VAX 

WS-11 can be used on the full PDP-11 family using its own 
operating system, RSTS/E, CTS-500, RSX-11M or 
VAX/VMS. Transition from one system to another can be 
made without any change to your documents. 


EASY TO USE 

Color coded commands are clearly labeled on the keyboard. 
Menus display all choices on the screen. No technical 
language or cryptic commands to remember. The screen 
immediately shows all changes you make to your 
document. No surprises. 


POWERFUL FEATURES 

Just a sample: Right margin justification, Centering, Search 
and replace, Libraries of stored text, Simultaneous editing 
and printing, Support for a wide range of printers including 
Xerox, NEC, Qume, Sanders and DEC. 


$ 2000-$3500 


WS-11 


ry-,COMPU-TOME. INC. 

' II I II l 668 S. Sunset Avenue 
QJLUlLI west Covina, CA 91790 
(213) 960-2895 
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All Things BRIGHT and Beautiful 

By Michael J. D. Mowat. B.Sc., M.B.C.S. 

Department of Agriculture and Fisheries for Scotland 


Creating a ‘Proper’ RSTS Disk with Contiguous Pre-extended Directories 


If you do a weekly backup copy of your system disk, you 
could start the week with a restructured disk to get the most 
out of your system. 

The advantages of having a well constructed system disk 
on a RSTS system are great. The features required on such a 
disk are that the directories should be contiguous and pre¬ 
extended and should be placed near the centre of the disk 
along with the SATT.SYS and the swapfiles. and that all other 
files should be physically contiguous as far as possible. 

Such a disk is very fragile because user files which are not 
logically contiguous will fragment as they are modified, and if 
the system requires that accounts be removed or added the 
contiguity of the directories will gradually deteriorate. Also if a 
directory is zeroed its contiguity will be lost. It is possible to 
build a disk with contiguous directories by starting with a 
newly initialized disk and creating all the accounts, then prex- 
tending all the directories by opening null files and closing 
them. 

With a system with a large number of accounts, this is an 
extremely time consuming process and it is not reasonable to 
repeat the process if accounts are created or deleted. System 
disks do however require to have back up copies made and if a 
faster method of producing a disk with a proper structure 
were available it would be possible to rebuild the disk at every 
backup session, taking account of any alteration in the account 
structure. Provided that the system can be taken off time 
sharing for the time necessary to copy the files using PIP the 
program BRIGHT.BAS described here can build the skeleton 
proper' disk very quickly (about 10 minutes for an 80 meg¬ 
abyte disk with 100 accounts). 

The old disk is kept as a backup volume and it can be 
remounted in the event of a disaster. Recovery of a single file 
from the old volume is very quick and easy using PIP. 

The prerequistes are:— 

1. An initialized system disk with the system directories 
pre-extended and with swapfiles included. This disk 
must contain the program BRIGHT.BAS and may in 
addition contain a startup command file (using ATPK) 
to make the operation automatic. In this case it must 
also contain all cusp programs and command files used 
before account [1.2] is copied to the new disk. 

2. The previous system disk with all changes made to the 
structure of the accounts. 


The new disk is initalized as a system disk with the 
directories pre-extended and the SATT, swapfiles and the 
directory of [1.2] are placed. The program BRIGHT as it stands 
assumes that these are placed contiguously from cluster 
20000 with a pack cluster size of 4. The program must be 
changed for other settings. When the disk has been initialized 
and any necessary files added it may be saved to another 
medium, or an image copy may be made to use the next time 
the system is rebuilt, to save having to go through the initializa¬ 
tion dialougue again. "typically the skeleton disk would have the 
following. 

Bootstrap 

INIT.SYS 

A SIL 

BASIC.RTS 

RT11.RTS 

SWAP files 

CRASH.SYS 

INIT.BAC 

PIP.SAV 

UTILTY.BAC 

BRIGHT.CTL (Command file to build the disk) 

ERRINT.BAC 

ATPK. B AC 

LOGIN.BAC 

LOGOUT. BAC 

BRIGHT.BAS (or BAC) 

The new pack is booted on DBO: and the old pack is 
mounted (physically and logically as a private pack) on DB1:. 
The program BRIGHT.BAS is then run. The first thing this 
program does is to build an MFD containing all the accounts 
from the old system disk. It then opens a contiguous file into 
which to build the directories and then builds a contiguous 
pre-extended directory for each file. Each directory will contain 
a null file called LOCK.UFD with a protection code of <63 >. 
This is to prevent the directory being lost if the account is 
cleared with PIP *.*/DE from a non-priviliged user. PIP/ZE will 
still destroy the contiguous directory and should not be used. 
When all the directories have been built the file into which they 
were written is removed from the directory (without resetting 
the SATT). A preliminary trial on a disk bound job with the first 
disk built by this method showed a speed improvement of 
about 50% over a disk where most of the files were more or 
less contiguous but the directories were scattered. 
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When the directories have been built the files are copied 
from DB1: to DBO: using PIP.SAV. If your system uses a new 
files first directory structure, the disk should be initialized as 
NOT new files first so that a PIP *.* will not reverse the order. 
The program INVERT.BAS is then run to change to new files 
first This program must run in account [1.1 ] as it must tell the 
monitor that the change has happened (since the disk descrip¬ 
tor is read only on mount). 

The listings of BRIGHT.BAS and INVERT.BAS are as 

follOWS:— 

BRIGHT.BAS 
1 EXTEND 

100 I THIS PROGRAM UILL RUN ON A SYSTEM DISK AND LULL CREATE THE SArE 8. 

!ACCOUNTS AS ON AN OLD SYSTEM DISK WHICH MUST BE MOUNTED AS A 8. 

!PRIVATE DISK ON ANOTHER DRIVE. 

110 !THE PROGRAM IS WRITTEN TO HANDLE THE NEW DISK ON DB0: AND THE 8. 

IOLD DISK ON DBls 

120 ITHE PROGRAM WILL EXTEND THE DIRECTORIES OF ALL ACCOUNTS TO 8. 

!SEVEN CLUSTERS AND MAKE THEM CONTIGUOUS ABOVE THE SATT.SYS & 

I WHICH SHOULD BE PLACED AT BLOCK 80000 (CLUSTER 20000). 

130 ITHE SWAP FILES MAY BE PLACED HERE TOO. 

140 ITHE PROGRAM ASSUhtS A PACK CLUSTER SIZE OF 4. 

200 PAKCLUX-4X ITHE PACK CLUSTER SIZE 

220 UFDEXTX-7X ITHE NUMBER OF CLUSTERS REQUIRED FOR EACH UFD 8. 

I MUST HAVE VALUE BETWEEN 2 AND 7. 

2000 GOSUB 5000 I CREATE ACCOUNTS 
2020 GOSUB 7000 I SET UP DIRECTORY SPACE 
2040 GOSUB 12000 I REMOVE UFDFIL.SYS 
2050 GO TO 32767 

5000 REM SUBROUTINE TO CREATE ACCOUNTS 

5010 REM ACCOUNTS CREATED ON DB0: SAI"E AS THOSE ON DB1: 

5020 NX-3X !ACCOUNT INDEX 

5030 ON ERROR GO TO 6000 I ERR-5 IF ACCOUNTS ARE EXHAUSTED 

5040 SS-SYS(CHR*(6X)+CHRS(14X)+CHR*( NX)+CHR*(SWAPX(NX))+STRINGS(1Bx.0X) 

+CHR*(68X)+CHR*(66X)+CHR*(IX)+CHR*(255X)) IFIND ACCOUNT 

5041 INEW CLUSTER SIZE CODED AS QUOTA 4096-4 8192-8 16384-16 

5042 S1*-MID(S*.27X. 1X)\S2*-MID(SS.28X.1X)\S3*-MID(S*,29X.2X) 

5043 IF S1«OCHRS(0X) GO TO 5050 

5044 S2X-ASC11(S2*) 

5045 IF S2X016X AND S2X032X AND S2X064X GO TO 5050 

5046 S3*-CHR*(S2X/4X)+CHR*(0X) 

5047 S2*-CHRS(0X) 

5050 ON ERROR GO TO 6200 I ERR-16 IF ACCOUNT EXISTS 

5060 S*-CHR*(6X)+STRING*(5X.0X)+MID(S*.7X,6X)+S1*+S2*+STRING*(8X.0X) 8, 

+CHRS(6BX)+CHRS(66X)+CHRS(0X)+CHRS(255X)+S3* 

5080 SS-SYS(SS) 

5090 GO TO 6450 

6000 IF ERR<>5 GO TO 25000 

5010 RESUrt 6020 

6020 RETURN !ACCOUNTS CREATED 

6200 IF ERR016 GO TO 25000 

6210 RESUhE 6450 IDO NEXT ACCOUNT 

6450 NX-NX+1X 

6460 GO TO 5030 

7000 BX-0X 

7005 ITHE FIRST PART OF THIS SUBROUTINE FINDS THE TOTAL NUMBER & 

I OF BLOCKS REQUIRED BY THE EXTENDED UFDS FOR ALL ACCOUNTS 8. 

I EXCEPT C0.13.C1.13 AND Cl.2D 
7010 ON ERROR GO TO 25000 

7020 OPEN 'C1, 1 3' FOR INPUT AS FILE •IX, MODE 16384X 
7040 DIM •1X.UX(3583.7) 

7060 CLUX-UX(31X.0X) 

7080 I WALK THROUGH DIRECTORY 
7100 PTRX-FNLINKX(UX(0X,0X)) 

7120 GO TO 7340 UNLESS PTRX 

7140 GOSUB 7200 

7160 PTRX-FNLINKX(UX(PTRX,0X)) 

7180 GO TO 7120 

7200 REM FIND NUPBER OF BLOCKS REQUIRED 
7220 IF (UX(PTRX.4X) AND 64X)-0X GO TO 7320 
7225 TX-UX(PTRX. IX) IDONT COUNT CB.13.C1.13 OR Cl.2D 
7230 IF TX-1X OR TX-257X OR TX-258X GO TO 7320 
7240 ABX-FNLINKX(UX(PTRX,6X)) 

7260 UFDCLUX-UX(ABX,7X) 

7280 BX-BX+UFDCLUX*UFDEXTX+(UFDCLUX/5X)*4X I ALLOW SPACE TO ALLIGN UFD CLUSTERS 
7320 RETURN V 

7340 I TOTAL SIZE FOR UFDS IS BX 

7350 I OPEN A FILE WHICH WILL CONTAIN THE UFDS. EACH UFD WILL CONTAIN & 

IAN ENTRY FOR A NULL FILE 'LOCK.UFD' 

7370 I THIS INSTRUCTION MAY BE CHANGED IF THE DIRECTORIES ARE & 

I NOT TO BE PLACED AT THIS LOCATION. 

7380 OPEN 'C0.1DUFDFIL.SYS/PO:20000' FOR OUTPUT AS FILE ^X.FILESIZE BX. MODE 16X 
7400 GO TO 9000 

7420 DEF FNLINKX(LX) & 

•(((LX AND 35B4X)/512X)«CLUX 8. 

+(SWAPX(LX AND -4096X)/16X)) *32X 8. 

+((LX AND 496X)X16X) 

8999 IROOTX IS THE START OF UFDFIL.SYS IN CLUSTERS 

9000 CSY*-CHR*(6X)+CHR*(-26X)+CHR*(0X)+CHR*(16X)+CHR*(1X)+CHR*(0X) & 

♦CHR* (52X) +CHR* (132X) +CHRS (244X) +CHR*(30X) +CHR*(187X) +CHR*(122X) 6. 

+CHR*(IX)+STR ING*(9X.0X)+CHRS(60X)+CHR*(66X) +CHR*(0X) +CHR*(255X) 

9020 ROOTX-SWAPX(CVT*X(MID(SYS(CSY*),3X,2X))) 

9040 IF ROOTX<0 THEN ROOTX-ROOTX+65536 
9060 DISPX-0X 


10000 ITHE UFD ENTRY IS MADE DIRECTLY INTO THE FILE 'UFDFIL.SYS' 

I AND THE APPROPRIATE DCN VALUES ARE INSERTED INTO THE l“FD 
10080 CLUX-UX(31X.0X) 

10100 I WALK THROUGH DIRECTORY 
10120 PTRX-FNLINKX(UX(0X.0X)) 

10140 GO TO 10480 UNLESS PTRX 

10160 GOSUB 10220 

10180 PTRX-FNLINKX(UX(PTRX.0X)) 

10200 GO TO 10140 
10210 IGET PPN 
10220 NX-UX(PTRX,IX) 

10230 I SKIP IF NOT AN MFD ENTRY 

10240 IF (UX(PTRX.4X) AND 64X)-0X GO TO 10440 

10300 DCN-UX(PTRX.7X) 

10310 GO TO 10440 IF DCNO0 
10320 IUFD ALREADY EXISTS 
10340 ABX-FNLINKXCJX(PTRX.6X)) 

10360 UFDCLUX-UX(ABX.7X) 

10380 GOSUB 11000 I MAKE THE ENTRY 
10440 RETURN 

10480 CLOSE •1XNCLOSE *2X 
10500 RETURN 

11000 PLX-ROOTX+DISPX IDCN OF A UFD 
11005 IF UFDCLUX>PAKCLUX GO TO 11350 

11010 ST0REX-DISPX*PAKCLUX+1X I CORRESPOND ING BLOCK OF UFDFIL.SYS 
11020 UX(PTRX.7X)-PLX 

11030 NUMBERX-UFDEXTX*UFDCLUX INUMBER OF BLOCKS IN UFD 

11040 DISPX-DISPX+NUMBERX/PAKCLUX I GET NEXT DISPLACEMENT (CLUSTERS) 

11050 I BUILD A DUMMY UFD. 

11060 FDCM*-CHR*(UFDCLUX)+CHR*(0X) 

11080 FOR I1X-0X TO UFDEXTX-IX IBUILD THE FDCM 
11100 ZX-PLX+I1X*UFDCLUX/PAKCLUX 
11120 FDCMS-FDCM*+CHR*(ZX)+CHR*(SWAPX(ZX)) 

11140 NEXT IIX 

11180 REC1S-CHRS(32X)+CHR*(0X)+STRING*(2X,255X)+STRING*(BX,0X) 

11200 REC1S-REC1*+CHRS(NX)+CHR*(SWAPx(NX))+CHRS(52X)+CHR*(132X) 

11220 REC1S-REC1*+CHRS(1X)+CHR*(0X) 

11225 REC1*-REC1S+STRING*(12X.0X)+CHR*(4X)+CHR*(0X) 

11230 REC1*-REC1*+STRING*(2X.0X) 

11240 REC 1 *-REC 1 *+CHR* (91X) +CHR* (77X) +CHR*(192X) +CHRS (68X) +CHR* (52X ) +CHR*(132X) 
11246 REC 1*-REC 1*+CHR*( 16X)+CHR*(63X)+STRING*(2X.0X)+CHR*( 16X)+STRING*(3X.0X) 

11248 REC1*-REC1*+STR ING*(448X.0X) +FDCMS 
11250 RECS*-STRING*(496X.0X)+FDCM* 

11252 FIELD #2X.512X AS Q* 

11253 LSET Q*-REC1* 

11254 PUT *2X.RECORD STOREX 
11256 FOR IIX- IX TO NUfBERX-lX 

11258 FIELD *2X.512X AS QS 

11259 LSET Q5-RECSS 

11260 PUT *2X,RECORD STOREX+I1X 
11280 NEXT IIX 

11300 I ACCOUNT UFD PRE-EXTENDED 
11320 RETURN 

11340 I TEST ALLIGNMENT OF UFD CLUSTERS 
11350 IF UFDCLUX-8X AND (PLX AND 1X)-1X GO TO 11010 
11360 IF UFDCLUX-16X AND (PLX AND 3X)-1X GO TO 11010 
11370 D1SPX-DISPX+1XNGO TO 11000 ITRY AGAIN 
12000 OPEN 'C0.13'FOR INPUT AS FILE •lX.MDDE 16384X 
12005 IKILL THE MFD ENTRY FOR THE FILE 'UFDFIL.SYS' WITHOUT 
I CLEARING THE SATT FOR THE UFD AREA. LEAVE THE GARBAGE. 

12010 PTRX-FNLINKX(UX(0X.0X)) 

12020 GO TO 12150 UNLESS PTRX 
12100 IF RAD*(UX(PTRX. 1X)X>'UFD' GO TO 12300 
12110 IF RAD*(UX(PTRX.2X))<>'FIL' GO TO 12300 
12120 IF RADS(UX(PTRX,3X)X>'SYS' GO TO 12300 
12130 UX(LASTX.0X)-UX(PTRX.0X) 

12140 CLOSE *1X 

12150 RETURN 

12300 LASTX-PTRX 

12310 PTRX-FNLINKX(UX(PTRX,0X)) 

12320 GO TO 12020 
25000 ON ERROR GO TO 0 
32767 END 

INVERT.BAS 

5 I PROGRAM TO CHANGE DISK TO NEW FILES FIRST. USE WITH CARE. 

6 I OPERATES ON DB0: ONLY 

7 .'MUST BE RUN ON Cl. 13 

9 I TELL THE MONITOR 

10 M*-MID(SYS(CHR*(6X)+CHR*(-3X)).19X.2X) 

20 MX-SWAPX(CVT*X(M*)) 

30 SX-PEEK(MX) 

40 SX-SX AND -513X 
50 SX-SX+512X 

60 S*-CHR*(SX)+CHR*(SWAPX(SX)) 

70 IPOKE 

80 S*-SYS(CHR*(6X)+CHR*(-6X)+M*+S*) 

999 I ALTER THE DISK 

1000 DIM •1X.AX(7) 

1010 OPEN 'Cl. 13' FOR INPUT AS FILE •1X.MODE 16384X 

1020 AX(5X)-AX(5X) AND -513X 

1030 AX(5X)-AX(5X) + 512X 

1040 CLOSE *1X 

32767 END 

A typical start up command file for use with ATPK is as 
follows. You can start it and leave it. The system will start up 
from the new disk when it is finished. The time taken will 
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depend on the complexity of your accounts. For a system with 
120 accounts and 120000 blocks in 7000 files the time was 
about two hours on an RP04. (considerably longer the first 
time from the rubbishy old disk). 

RUN C1.2DUTILTY 

SEND KB0: Building Directories 

ADD RT11 

MOUNT DB1:RSTS7/PRIVATE 
UNUOCK DB1: 

EXIT 

RUN [ 1.23BRIGHT 
RUN C1.2DUTILTY 
SEND KB0: Transferring files. 

EXIT 

RUN C1.2DPIP.SAV 

DB0:C0.1]*.*/PO:20000-C0.13*.RTS/PR:N0UARN 
! FREQUENTLY ACCESSED FILES MAY BE PLACED BY INSERTING 
! COrMANDS HERE 
♦2 

! THIS OPTIONAL FILE HOLDS SPACE NEAR THE CENTRE FOR NEU FILES 
! AND DORK FILES. 

OPEN 'FILLER.TEM/PO:18000' AS FILE •lX.FILESIZE 16384X 

CLOSE *1X 

RUN C1.23PIP.SAV 

DBlsC1,2]*.URK/DE 

DB1 :C 1,2]*.TMP/T)E 

DBlsC1.23*.COM/DE 

DB0:C*,*]*.*-DB1sC*.*D*. *sVR :NOUARN 
DB0:C1.2]BRIGHT.BAS/DE 
FILLER.TEM/DE 
*Z 

RUN C1.23UTILTY 

SEND KB0:File transfer complete. 

REMOVE RT11 
LOCK DBls 
DISMOUNT DB1: 

EXIT 

HELLO 1.1;SYSTEM 
RUN SINVERT 
HELLO 1.2;FILES 
SaC1.2DRTS.CMD 
SaC 1.2DSP00L.CMD 
sac 1.2DCCL.CMD 
sec 1.23TTY.CMD 
sac 1.23PLOT.CMD 
RUN SUTILTY 
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REMOVE LOGICAL LB 
ADD LOGICAL SY0:C1,13LB 
ENABLE CACHE 
LOGINS 

SEND ALL RSTS/E V07.0 NOLI UP AND RUNNING 

SEND ALL Please sag HELLO 

EXIT 

DIR BRIGHT.DIR-C*.*}*.*/^ 

QUE LP0:/FO:NARROU/NH/DE-BRIGHT.LOG.BRIGHT.DIR 

The procedure to initialize the disk and to position the 
swap files, and run time systems should be similar to the 
following description. 

Instructions for the Weekly Disk Copy. 

1) Run shutup 

2) Mount a scratch disk on DB1: 

3) DSKINT DB1: with the following dialogue 
Option: DS 

DD-rm-YY? Date or LF 
00:00 ? Time or LF 
Disk? DB1 

A description of the disk may be output. 

Pack ID? RSTS7 
Pack cluster size? 4 
SATT.SYS base? B0000 
MFD password? SYSTEM 
l“FD cluster size? 16 
Pre-extend directories <no>? Y 
PUB, PR I. or SYS? SYS 
Library password? FILES 
Library UFD cluster size? 0 
Library account base? B4492 
Date last modified <yes>? N 
New files first <no>? N 

Use previous bad block info <yes>? Y (Not asked if not a RSTS disk) 

Format <no>? N (unless a new disk) 

Patterns? 1 (but use 4 at least if not a RSTS disk) 

Proceed? Y (if happy with dialogue) 

4) Continue as follows when the disk is initialized. 

Option: COPY 

DD-MMM-YY? 

HH:MM? 

To which disk? DB1 

Enabling only console, disks, and tapes. 

RSTS V7.0 (DB1) 

Option: HARDUR 

HARDUR suboption? HERTZ 50 
HARDUR suboption? CSR 

Controller with non-standard address? DZ0 
New controller address? 160040 
HARDUR suboption? VEC 

Controller with non-standard vector? DZ0 
New vector address? 310 
HARDUR suboption? CSR 

Controller with non-standard address? DZ1 
New controller address? 160050 
HARDUR suboption? vec 

Controller with non-standard vector? DZ1 
New vector address? 320 
HARDUR suboption? LIST 
(CHECK THAT THE HARDUARE LISTING IS CORRECT) 

HARDUR suboption? LF 
3 changes being made 

Rebooting . 

RSTS V7.0 (DB1) 

Option: INSTALL 
Sil? RSTSV7 


Name__ 

Address_ 

_Suite_ 

City_State_Zip_ 

Telephone ( ) _ 

FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1.00 per word 
thereafter. Use the space provided below. 


Option: BOOT DB0 

RSTS V7.0-07 Marine Lab (DB0) 

Option? ST 


Command File Name? PROPER.CTL(This copies files required to run BRIGHT) 


Uhen system shuts down put old disk on DB1: and new disk on DB0: 

Then start with command file BRIGHT.CTL 

(note that DEFAULTS must first be set using BASIC as the RTS) 

The system will come up (without DB1:) when the disk copy is complete. 

A similar process may be used with a disk used as a non 
system disk but of course automatic start up would not be 
possible unless you have more than two drives, in which case 
the process could be done on line. If you have only two the non 
system disk would ahve to have a system on it in order to run 
BRIGHT and do the copying. 9 


V3.1 I 




















CLEN CLEN 
CLEN CLEN 
CLEN CLEN 


LENUPCLE 

PC L E 

CL 

UP 

EN PC 

ENUPC L 

UP 

EN 

CL 

UP 

ENUPC L 

N UP C 

UP 

EN 

CL 

UP 

EN 

NUPC 

UP 

EN 

CL 

UP 

EN 

NUPC 

UP 

EN 

CL 

UP 

EN 

NUPC 

PCLE 

LENU 

EN 


UPCLENUP UN 
NUPCLENUP UN 
ENUPC UN 


CL 


ENUP 

UN 

PC 

PCLE 

CL 

PCLE 

LENU 

ENUP 

UNUPCL 

UP 

EN 

CL 

UP 

EN 

CL UP 

ENUP 

UN 

CL 

UP 

EN 

CL 

UP 


CLENUP 

ENUPC 

UN 

CL 

UP 

EN 

CL 

UP 


CL 

NUPCLENUP 

UN 

CL 

UP 

EN 

CL 

UP 

EN 

CL UP 

UPCLENUP 

UN 

CL 

PCLE 

CL 

PCLE 

LENU 

DEMONSTRATES 

CLENUP ON 

A 

SMALL 

BUBBLE 

SORT 



2DINL(20X):L(IX)=RNDF0RIX=1XT020X!BUILD UP SORT LOOP 
3&*STARTING SORT AT';TIMES(OX) 

4Z1X=0X: ZX=20X: WHILEZX: FORJX = 1 XTOZX-1X: IFL(JXX = L (JX + 1 X)THEN5ELSEL=L ( J X) 
L(JX)=L(JX+1X):L(JX+1X)=L:Z1X=JX!WE NEEDED TO FLIP HERE 
5NEXTJ%:ZX = Z1X:Z1% = 0X\NEXT:&'SORTING ENDED AT';TIMES(0X) 

6ST0P 


PCLE 

EN PC 

UP 

EN 

ENUPCL 

UP 

EN 

EN 

UP 

EN 

EN 

UP 

EN 

EN 

PCLE 

EN 


OOOOI !THIS SHORT PROGRAM DEMONSTRATES CLENUP ON A SMALL BUBBLE SORT 
00002 DIM L(20X)\ 

L ( I X) = RND 

FOR IX = IX TO 20X 

! BUIL D UP SORT LOOP 

00003 PRINT 'STARTING SORT AT'; TIMES(OX) 

00004 Z1X = 0X\ 

ZX = 20X\ 

WHILE ZX\ 

FOR JX = IX TO ZX - 1X\ 

IF L (J X) <= LUX ♦ IX) THEN 5 
ELSE L = L ( J X)\ 

L ( J X ) = L (J X + 1 X ) \ 

L (J X + IX) = L\ 

Z1X = JX 

!WE NEEDED TO FLIP HERE 

00005 NEXT JX\ 

ZX = Z1X\ 

Z1X = ox\ 

NE XT \ 

PRINT 'SORTING ENDED AT'; TIME$(OX) 

00006 STOP 


t L EN U P Ts a service that saves you money and tine. With the cost o i 

program maintenance ever increasing, CLENUP will make your BASIC PLUS 
programs easier to read so your programmers will spend less time and money 
on the program changes needed. 

CLENUP does not change the logic or efficiency of your programs - CLENUP 
reformats the source code to a pleasing, visually logical format. CLENUP 
is not expensive, and in most cases, your programs will be back within one 

week. 


For additional information, please call: 

or write : Aim Up 

Attn: CLENUP office 

370 Seventh Ave. Suite #434 

New York, N.Y. 10001 


Gary Oppenheimer 
Arnold Singer 


(212)787-2416 

(212)279-3995 


Note: BASIC PLUS is a trademark of DEC. 
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TECHNICAL NOTES 

By The RSTS "Pro" Staff 


An understanding of what your compu¬ 
ter is doing at the basic level is important in 
evaluating performance (or lack of it) and 
deciding what can be done to improve it. 

This will be the first in a continuing 
series to help you understand the physiol¬ 
ogy of a PDP11.1 am not a hardware expert, 
lots of people think I am not a software 
expert, but I am willing to stick my neck out 
and let you have the ideas as I understand 
them. As an editor. I will start and keep the 
ball rolling. I will, when offered, submit 
other comments and articles to the new¬ 
sletter. I ask that you send them to me so 
that I may exercise my editor’s perogative 
and put them in some order. 

This first article will deal with input and 
output. All PDP 11 devices have associated 
with them a set of registers which may be 
accessed as if these registers were in the 
main memory. Each device has associated 
with it at least two registers: a)a control 
and status register and. b)a data buffer 
register. Some devices have more than two 
registers. For example, one of the simplest 
devices attached to the PDP 11 may be the 
console terminal. It has four addresses or 
registers associated with it. They are: 
1)printer data, 2)printer status. 3) key¬ 
board data, and 4) keyboard status. You will 
have by now noticed that the console is 
really two devices: a reader and a printer. To 
print a character on the console printer, all 
that is necessary is that you deposit via a 
move or similar instruction the seven bit 
ASCII code for the character you wish to 
print into the printer’s data register and it 
will be printed. The printer status register 
will contain a bit that will say done or ready. 
Since the CPU runs faster than the printer 
can print, it is necessary after printing a 
character to check to make sure that the 
character has been printed before deposit¬ 
ing the next character in the data buffer 
register to be printed. In an analogous 
fashion, when a character is typed at the 
keyboard, it can be read' by reading the 
data register of the keyboard. After read¬ 
ing,’ a bit in the status register is set to 
indicate that no data is currently available in 
the data register. This means, of course, 
that you now have read the data that was in 
there. Note that reading a character from 
the keyboard does not echo it on the termi¬ 
nal printer. This must be done by putting 
the data that has been read into the printer 
data register thus echoing the character 
read. 

Notice that there are no true I/O 
instructions; only the transfer from 
memory location to memory location is 


necessary in order to do input or output. 

Although this type of input/output 
programming is simple and straightfor¬ 
ward, it would be inefficient in the case of 
trying to control a multi-terminal system. 
For instance, a system that had 16 key¬ 
boards attached to it would necessitate 
that the controlling program periodically 
scan the data or control registers of the 
keyboard to see if anything had been input. 
If nothing had been input on that keyboard, 
it could continue to the next keyboard to 
see if there was any data there to be input. 
This technique is known as polling. That is. 
the controlling program polls or asks each 
terminal if there is data that it has to trans¬ 
mit. If not, the CPU continues around check¬ 
ing each terminal or device to see if there is 
any action to be taken. Thus, it becomes a 
totally CPU-bound job to keep checking your 
devices to see if there is any input to be 
done. A second and. as you can see, more 
efficient class of I/O programming is the 
so-called interrupt directed input and out¬ 
put. In the control and status register of our 
console terminal, there is a bit that enables 
an interrupt. That is. when data becomes 
available in the data register in the case of 
input or output, it causes the program to 
interrupt. What happens when the inter¬ 
rupt occurs from the console terminal? At 
every CPU cycle the PDP 11, via hardware, is 
checking to se? if an interrupt has occurred. 
The PDP 11 utilizes a priority vectored inter¬ 
rupt scheme. Let's take them one at a time. 
The priority of an interrupt directs that if 
there is. in fact, more than one interrupt 
occurring at the same time which interrupt 
will be serviced first. If interrupt processing 
is in progress and a higher priority interrupt 
occurs, the lower order interrupt service 
routine will be interrupted by the higher 
priority interrupt. 

The vectored interrupt scheme allows 
interrupt processing via hardware to occur 
directed to particular memory locations. For 
instance, an interrupt caused from the con¬ 
sole terminal keyboard causes the interrupt 
to trap to location 60 while an interrupt 
from the console terminal printer causes a 
like interrupt to location 64. At these loca¬ 
tions then, the user, in his program, may 
specify a particular address where the 
interrupt service routine is then to begin. 
This allows hardware to trap the particular 
location and relieve software of the job of 
determining which device interrupted and 
now what to do about it. Thus, when a 
character is typed on the console keyboard, 
if the interrupt enable bit has been set in 
the control and status register for the key¬ 


board, an interrupt will occur. The interrupt 
will then trap to location 60 where the user 
could specify a service routine to handle an 
input type on the console terminal. In a 
similar fashion, when a power fail is 
detected by the system, a hardware inter¬ 
rupt is generated with a vector interrupts 
location 24. Location 24 directs the proces¬ 
sor to the proper service routine to save 
registers and necessary memory on the 
power fail sequence. We have now dis¬ 
covered two important concepts about 
input/output programming on the PDP 11: 
those of interrupt, priority interrupt and 
vector direction of the particular interrupt. 
These are not unique to the PDP 11 and can 
be found throughout the computer 
industry. 

You will have noticed that it requires 
the central processor to be involved with 
every character transmitted to our console 
terminal. That is, if we wish to transmit to 
the console terminal data that is located in 
ten contiguous memory locations, it is 
necessary for the CPU to be involved with at 
least ten instructions, and in real fact, many 
more. The CPU must deposit or move from 
one real memory location to the data buffer 
or data register of the particular device 
each character separately for the transfer. 
This is all right for a slow device such as the 
DEC writer, but can cause problems for 
devices that go quite a bit more rapidly. 
When you consider that an LA 36 transmits 
30 characters a second while a TU 10 mag¬ 
netic tape transmits 36.000 characters a 
second, the overhead involved with trans¬ 
mitting characters through a magnetic 
tape would greatly exceed that of an LA 36. 
There is another type of I/O transfer availa¬ 
ble within the PDP 11 hardware. This is the 
so-called NPR transfer. The PDP 8 refers to 
a data break facility and a generalized com¬ 
puter term for this is devices that work on a 
cycle stealing basis. (Non Processor 
Request) Devices that operate on a cycle 
stealing basis steal an occasional cycle from 
the CPU in order to do their input and out¬ 
put. This means that the devices them¬ 
selves have the ability to do data transfers 
from memory to the device or from the 
device to memory without processor inter¬ 
vention. These “smart’’ devices need only 
be told by the processor what location in 
memory to begin transfers from, how many 
locations to transfer, where on the peri¬ 
pheral device to begin putting the data and 
then these devices begin doing it by them¬ 
selves. When they are finished, they auto¬ 
matically interrupt the CPU. Take the 
situation of transferring a file from disk to 
memory. The device, in this case the disk, 
needs to be told at what memory locations 
to begin putting the data, how many words 
(Bytes) to transfer, and where on the disk 
to begin getting the data. 
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What Can One. Coupon Get For You? 

A Free Resume Kit... 

From the Only Employment Service with Twin Inhouse PDP 

11/70RSTS systems. 

An Invaluable Aid In Your Job Changing Process 

The Kit presents in an uncomplicated format what we’ve learned in over 15 years of employment service to 
the computer industry. Fill out the coupon and return it to us. We’ll send you our free Resume Kit. 


Name 

Applications 


Address 

Degree 

Yr. Grad No. Yrs. Experience 

City 

State Zip Current Employer 


Phone 

Job Title 



Hardware 


§ 


Languages 

We have many exclusive Data Processing positions available — locally and nationwide. 

f Scientific Placement, Inc. Employment Service 

P 0 Box 19949 Houston. Texas 77024 (713) 496-6100 
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Once these registers are loaded, the I/O begins to take place in 
the same fashion as a character was printed on the console terminal 
when the printer register was loaded with the data to be printed. 
When the number of words that we specified to be transferred has 
been transferred, the device automatically interrupts the CPU for 
more information. This is the so-called stealing of a cycle from the 
CPU. It would be possible to transfer many thousands of Bytes, or 
words, of information between peripheral devices only utilizing a very 
few cycles of the CPU. While this transfer is going on. the CPU is free 
for other instructions. 

In the next article, we will deal with more specific high-speed, 
large data capacity devices, particularly RPO 2, 3. 4, 5 and 6 disk 
drives. We will also attempt to talk about the Unibus structure, how 
data is transferred over the Unibus and the Unibus extensions: the 
Fastbus and Massbus. 

For more information about this article and future articles. I 
suggest the following reading. In 1968 or 1969, DEC published a book 
called, Introduction to Programming. Although this book is based on 
the PDP8 series of computers, many of the concepts have carried over 
to the PDP 11. Next, the PDP 11 Peripherals Handbook contains in its 
introduction and beginning chapters useful information on program¬ 
ming peripheral devices. The addresses and use of different control 
and status registers for different devices can be found in this particu¬ 
lar book. I have a 1973 version of the Peripherals Handbook as well as 
the 1976 version and they are somewhat different. If you can get both 
of them, you are that much better off. In addition to the aforemen¬ 
tioned. it is also useful to have the Processor Handbook for the 
particular PDP 11 that you happen to have. It doesn't hurt to have 
processor handbooks for PDP 11 s that you don’t have, also. There are 
differences you will find between the LS111 and the PDP 11 /70. If you 
take the time to read and look through some of these books, you will 
find all of the information that we have talked about here contained in 
them as well as many examples which space precludes us from 
putting in the magazine. 

I hope this first article has been interesting to all. useful to some 
and boring only to a few. I apologize for its inaccuracies and look 
forward to your comments. 9 


DRSfoll&VAX 

The 

DBMS 
Productivity 
Tool 

For DEC 11 and VAX (Native Mode Too!) 

In Use For 10 Years... 140 Sites Installed. 
Technology Leader in Data Base Systems. 


Call For A FREE 

BRIEFING MANUAL 


(617)437-7600 

AMERICAN USED SOFTWARE COMPANY 

P.O. Box 68, Kenmore Station, Boston, MA 02215 

DRS is a product of Advanced Data Management 
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BLDCTL: Control File Processor 

By David Spencer 


The concept of job control files is far from new. On 
RSTS/E we have as control file processors both BATCH 
and ATPK [and now QUE.11. ed.]. These programs accept 
stream input files with lines similar to typing at the 
terminal. All this is well and good, provided that every 
control stream only needs to do one thing, and do it the 
same way every time. 

BLDCTL is a TECO program written to pre-process 
job control files. The most unique feature of BLDCTL is 
its ability to ask questions during the process phase, and 
in doing so, mold the output stream according to the 
responses. 


General Concepts 

BLDCTL was written in TECO mainly because TECO 
has a rich set of text processing commands already 
defined within it. However, any other language would 
have done the job just as well. 

The commands to BLDCTL are found within the 
source control file itself. Text processing is triggered by 
a set of special characters found at the beginning of the 
text line. 

: Internal comment, will not appear in the output stream. 
& Displays line to TTY. becomes a "!" in output. 

? 


Full format: ? t input 

Where: 

name[help testjdefault * min * max * code 


Specifies accept user input. 

“t" 

Indicates start of name for user input. 

"input name" 

Is replaced with user input 

T 

Ends input name, starts help text. 

"help text" 

Displayed when user types “?”. 

T 

Ends help text, starts default text. 

"default" 

Default input when flagged. 

• • • *t 

End of default value. 

“min" 

Minimum length of user input. 

*• • •• 

Separator. 

“max" 

Maximum length of user input. 

•• * •* 

Separator. 

"code" 

BLDCTL user input edit code. 


To apply default, make "min” a zero. If the user 
enters a then the help text will be displayed. 


. Conditional command 
.IF text = constant [or] .IF text <> constant: 

.END 

When found, the conditional in the ".IF” statement 
will be tested. If the test is TRUE, then the lines be¬ 
tween the ".IF" and the ".END" will be INCLUDED in 
the output stream. If the conditional is NOT TRUE, 
then the lines between the “.IF" and the ".END" will 
be EXCLUDED from the output stream. 

operator 

The semi-colon character defines an internal com¬ 
ment. This allows lines that are useful to see in the 
source (such as modification histories) to be omitted 
from the output. I have seen BATCH chew up many 
minutes processing simple comments. 

operator 

Use of a line beginning with an ampersand will print 
the remaining text to the terminal. This is useful for 
identification of streams, warning messages, etc. 

"?" operator 

This command is the heart of BLDCTL. It allows 
questions to be asked of the user at file build time. After 
the input is accepted, everywhere in the control file 
where the prompt name is found bracketed by up- 
arrows is replaced by the user response. This allows 
dates, numbers, Y or N answers, and all sorts of input to 
be inserted into the control stream. In addition, there is 
an unimplemented parameter called code. This number 
can be used in modified version of BLDCTL to edit user 
input. 

".IF, .END” 

The “.IF" conditional allows blocks of code to be in¬ 
serted into or deleted from the output stream. There are 
two forms of the conditional. The first form is a com¬ 
pare by a “ = ", the second with a “< >". These tests act 
just as they look in BASIC. If the condition is false 
(Y = N), then the code from that point to the closing 
“.END" will be DELETED from the output stream. If the 
conditional is true, then the text remains. Please note 


FINALLY, A TERMINAL FOR 

DEC PROGRAMMERS 

THE PROTERM 80' REDUCES: 


Program development time.80% 

D i sc accesses.90% * 

CPU lime.66% 


PUT THE TEXT EDITOR IN YOUR TERMINAL... 

NOT IN YOUR CPU ! 

PROGRAMMING MODE: 

Escape key emits # in programming mode These keys are lower case: % $ I 

60 var iabIe length functions that can type to host, display, or type to host and di spI ay . 

Samples of single key functions: LISTNH OPEN - FOR INPUT AS FILE * *«• , CLUSTERSIZE 

PRINT ASCIICMIDCAS, 1%, 1 FOR I/.= 1% TO LENCAS) GET *-%, BLOCK ** FOR I%=1% to 

PROTERM 80 enters fill in the b I ank mode at the character . Control codes may be embedded. 
Save/Send favor i t e phr ase Ex. RUN DB7: C 2 1 3, 1S9 J VT5DPY X U10 X /£ X T X Sn x D x C x "embedded <CR> code) 
Editing fea tures Include Insert/delete I Ins/character, transmit I ine/page, copy line. 
?FataI and %Warning messages are trapped and displayed on the bottom I i ne of the dispI ay . 
The PROTERM 80 marks the I Ine Cnot I I ne that causes BASIC to generate a ?FataI error . 

If you don't like these load your own favorites. The PROTERM 80 is a PERSONAL terminal. 

The PROTERM 80 has been used with DEC BASIC's, ROSS/V, DATA BOSS / 2, US-1 1 and FINAR. * 

ECHO CONTROL MODE 

All the f ea tur es DEC f or go t. Field at tr ibu t es IncIude new/oId, a Ipha, numerIc, mus t fill. 
Up to 64 down IoadabIe functions. Type ahead with data compression. Operates on channeI 0. 
Local editing keys ~U, rubout, cursor left/right, deletm/insert character. "Peek a boo". 
If you can use INPUT LINE and remote cursor position ALL the rest Is done by the PROTERM 80. 
Provides a RSTS terminal environment on ANY host, <LF>, <FF>, <ESC>, etc. can be delimiters. 

ANSI MODE: 

If you want Just a VT—100 type terminal, push a key and operate In ANSI mode, VT-52 mode, 
OR use 1-156 column widths with full editing, format protect, block mode and other features. 


* Reductions may be less for those that write perfect code the first time. 


PWTEB 81 l« lb* ifitt »f Oil 9«U T«r»laaii C*rpe*ll*n. 

MTUH. kwtMiili 

CO VT-IM VT-Q r. lraUa •( Dl'HaJ Ee*W 

CeyeaUe, im/mri, i ■*1 I It 
BSS/T I. IS. W &lh* D*l* I*l. 

MU IBS / 2 It iS* 1/tM af FleUa Wul*. Ik.. 

Hal, n«’l4. 

B-11 U IS. \rwimmk J Sale. 

W Calm. Callftmla 

ra* la lu IraWt af Hm- Wei U.lU 

He Tart, le Wk 




DATA 



RMINAL 6 

RPORATION 


FOR MORE 
INFORMATI ON: 

tele x & 

924-325 

call 

16171359-41 88 
or wr i te 
4 5 WE ST ST. 

ME DF I E L D MASS. 

02052 
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that spaces in the conditional text are meaningful. 

Another item worth noting is that ".IF” blocks can 
be nested within other ".IF" blocks. Of course, any inner 
".IF", blocks will be deleted if the outer block is false. 


Running BLDCTL 

BLDCTL is designed to be entered by either normal 
run or CCL entry. The default extention on input is 
“.PCF" (Pseudo Control File). The output default is the 
common '.CTL''. 

On run entry, both the input file name and output 
file name are accepted from the keyboard. There is no 
default for the input file. The output file will, however, 
default to the input file name with the proper default ex¬ 
tention. 

For CCL entry, any CCL name will do. If only the CCL 
is given, then BLDCTL continues as if it were entered 
through RUN entry. If a filename is given, it is assumed 
to be the input file name and generates a default output 
file. Input and output file can be specified by an equals 
character, in the form of "out = in". 


Final Notes 

Although BLDCTL is a complete, functioning pro¬ 
gram the current version is not intended to be the last. I 
openly encourage modification to the primary program. 
Anyone with a reasonable knowledge of TECO should be 
able to make changes to the code. 

The examples should reasonably demonstrate in 
short form the capabilities of BLDCTL. About the source 
listing: the only control characters in the source are the 
two escapes at the very end of the program. These have 
have been underlined to indicate them as such. Please 
don't be fooled by the alignment of the comments and 
don't use tabs to move out to the margin. 

Any correspondence concerning BLDCTL can be sent 
to: 


David Spencer 

2901 South Sepulveda Suite 305 
Los Angeles, Calif. 90064 


Special offer — 

A 9 track 800 bpi distribution — 
send $25 check or money order to: 
Dave Mallery 
70 James Way 
Southampton, PA 18966 


i ! 

I BLDCTL.TEC 1 

1 1 

1 Author: David Spencer l 

1 1 

1 Audit trail ! 

1 1 

1 dd-mmm-yy Who Why ! 

! - - - 1 

i 04-Nov-80 DJS First version 1 

1 1 

1 Q-Registers I 

1 A$ Parse input file ! 

1 A% Scratch ! 

! B$ Parse output file ! 

! B% Scratch ! 

I C$ Evaluate input by dispatch code ! 

1 C% Dispatch code ! 

I D$ Default input ! 

1 E$ String equate macro 1 

I E% String equate result ! 

1 F$ Holds input file spec ! 

1 G$ Get input from user ! 

1 H$ Help text ! 

! 1% ".IF" depth counter ! 

! J$ Left string argument i 

1 K$ Right string argument l 

1 L% Line counter ! 

! M% Minimum length of input ! 

1 N% Maximum length of input l 

I P$ Input prompt text l 

! Q% String equate operator ( = , <>) ! 

I R$ Input response from user 1 

1 S$ Scratch ! 

1 T$ Delete ".IF" ballon ! 

I X$ Open input file spec 1 

1 Y$ Open output file spec ! 

1 i 

I ************************************* j 

§EI// 1 Alternate stream off 1 


************************************* j 

1 

Phase one: load macros ! 

! 

************************************* j 


1 Load open input file macro l 


@~UA$ 

J @I/:ER/ ZL 2701// OXS OK MSUS 
G* R 0A-. "= D | C ’ 

.US :@-S/./"S QSJ 

I 

QSJ @1/.PCF/ 


! Do full spec, eat # I 
! Insert spec, drop ! 
! Found, go back to file! 

! Append default ext I 


OXF OK 

@~A/Opening / :GF @~A/ for input.../ 13*T 10~T 
@I/:ER/ GF 2701// 

@I/"U @~A%?Can't find file or account, aborting... 


! Save filespec 


% HK EK EX V -2XS -2K MS 
0I/ER/ GF 2701// OXX OK 
$ 


! Check file, abort none! 
! Open for real now 1 


I Load open output file macro 
@~UB$ 

Z"= GF :@-S/./"S R K ' ' 

J @1/:ER/ ZL 27@I// OXS OK MSUS 
G* R 0A-~~."= D|C 
.US :0-S/./"S QSJ 
I 

QSJ @1/.CTL/ 

OXY OK 

@~A/Opening / :GY @ < ‘A/ for output.../ 
@I/:ER/ GY 2701// 

@I/"U 13~T 10~T '/ -2XS -2K MS 
0I/EW/ GY 27@I// OXY OK 
$ 

! Load "dispatch code" processor 

@*UC$ 

< 

MG 

0:QR-~?"= :QR-1 "= @~A/Help text is 
:GH 13"T 10~T F< 


1 


! Use input for default ! 
! Do full spec, eat # ! 

! Insert spec, drop ! 

! Found, go back to file! 

! Append default ext ! 

! Save filespec ! 


! Check file, fix margin! 
! Open for real now ! 


1 


! Do the input from user! 
follows:/ 13"T 10~T 

1 Give user help l 


:QR"= QM"= 


.UA GD QA,.XR QA,.D 0; 
@~A/%No default allowed. 


type 


! Pass default if set ! 

"?" for help text./ 13*T 10~T F< 
! Otherwise an error ! 


:QR-QM"L @~A/%Input must be at least / QM:= @~A/ character/ 

QM-l-N ~s~T ’ @~A/ long./ 

13~T 10“T F< ' ! Too short ! 

:QR-QN"G @‘'A/%Input must be no more than / QN:= @~A/ character/ 

QN-1"N s~T ' @~A/ long./ 

13~T 10~T F< ' j Too long ! 

^ ! Input must be good ! 

$ 


1 Load string equate macro i 

@~UE$ 

QIUS %I OK @*US/<«/ -1UE -1UQ 
:@S/~EGS/"S -D 0A-~~>"= D OUQ ' 

OXJ OK L 2R OXK OL K 
.UA J :QJ-:QK"N OUE 
I 

GJ J @1/::S/ GK 2701// OXK OK 

MKUE J :QJD 

QAJ (QE+QQ+1)"= MT ' ' 

$ 


! Bump count, init scan ! 
! Find equate, set flags! 
! Save left, right args I 
! Test lengths I 

! Leave first arg, build! 
! macro to test with 2nd! 
! Test and save result, I 
! clean up afterward ! 
! Delete text if false ! 
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I Load user input get macro 


@"UG$ 

ET#32768ET .UA J :GP 

< 

"TUB 

QB- 3"* HK EK EX • 

QB- 4" = OK 13 "T 10"T :GP F< ' 

QB- 10"= 13 "T 0; • 

QB- 12"= 13 "T 0; ' 

QB- 13"= "TUB 0; • 

QB- 18"= 13"T 10"T :GP 0T F< • 

QB- 21"= OK 13"T 10"T :GP F< ' 

QB- 26"= 13"T 10"T HK EK EX ' 

QB- 27"= 13"T 10"T 0; ' 

QB-127"= 0"Q"= 7"T 

I 

R ET&2"= 0A*T 

I 

OA-32"L 2US 

I 

1US • 

QS< 8"T 32"T 8"T > • 

D ' 


F< 

QB0I// 

> 

0XR OK QAJ 
$ 


! Load text delete macro 1 

@"UT$ 

< ::@S/.IF /"S 0L %I *[ ' 

::@S/.END/"S (QI-l)UI ' 

OL K QS-QI"N .-Zy > ' 


Phase two: parse CCL command 


********* 


:@S/ /"S OK | HK ' 1 Remove CCL name I 

Z "N I CCL found l 

:@S/=/"U ZJ 0XS J GS @1/=/ ' 1 Insure specs I 

-D 0XY OK ZJ MA i Open input file I 

| GY MB ! Open output file I 

@ A/BLDCTL V01.00/ 2< 13“T 10"T > 1 Display header I 

@"UP/File for input? / MG GR :QR"= HK EK EX ' MA 

A ! Get input file ! 

@ UP/File for output? / MG GR MB ! Get output file ! 


MX MY 


l Now open files up ! 


******** 


Phase three: Main routine 
************************************* 


13"T 10"T 

< "N"= A > * 

< 0A-*“;"= K | L ' ,-Z; > 


1 Space a line 
1 Pull in all the file 
! Remove internal remark 


J 0UL 

< 

0A-""'&"= D @1/1/ T ' 

0A-"*?"= 

13"T 10"T 

D @1/!/ .UA :§S/[/"U §0!ERROR! ' 

R .UB QA,QBXS 94§:"US// 

QAJ C @"UP/Enter "/ .,QB:XP @:~UP/" 

QBJ C .UB :@S/]/"U @0!ERROR! ' 

QB,.-1XH 

.UB :@S/*/"U @0!ERROR! ' 

QB,.-1XD 

\UM C \UN C \UC 

MC 

< @S/"EQS/y "SD GR > 


! Zero line counter 1 

1 Display line command 1 

! Blank line before get ! 

! Get replace text 1 

s / 

! Save input prompt 1 

I Save help text ! 

! Save default text ! 

! Get min, max, code ! 

! Make all replacements I 


@0!SKIP! 


!ERROR! 

@"A/Ignoring invalid format line:/ 

13 T 10"T QAJ T j Display error message ! 


!SKIP 1 
"[ 

%L 

"[ 

J QLL .-Z; 

> 


1 Eat any free numbers ! 
! Bump count ! 
! Eat any free numbers ! 
! Drop to next, end? ! 


J OUI 


::@S/.IF /"S ME -L ' 
::@S/.END/"S (QI-l)UI OL K -L ' 
L ,-Z; 


! If found, do equate ! 
! Close ".IF" ballon ! 


EX 

SI 


! Mission complete, the ! 
1 world is again safe ! 
! for democracy. 1 


PIP EXMPL1.PCF 
$JOB/CCL/NOLIMIT 
! 

1 Batch stream name: TEST 
! 

; 

; Audit trail 
; Date Who Why 

; 22-Nov-80 DJS Create stream 


MACRO-II 

RSTS/E 

Situation: You want to use MACRO-II \ 

with a RSTS/E system. 

Problem: Programmers can’t use it ; 

or get good training. ' 

Solution: A concentrated course at 

Saint Mary’s College 
July 7-17, 1981. 


For full details, write: 

Institute for Management 
and Information Systems * 

Box 56 ,v 

m Saint Mary’s College I 

Winona, Minnesota 55987 


Don’t buy a VAX ... 

Call MACRO MAN 

for superior performance 
RSTS internals 
custom Macro programming 
RSTS or 11/M 

SPECIAL OFFER 

MACRO SYSTAT-V7.0 
super speed, no’ load, great features 
send $40 and installation name 

MACRO UTILITY LIBRARY 
build your own! — call for information 

Bob Macro Man’ Meyer 

9 Lockwood Avenue 
Fieldsboro, NJ 08505 
609-298-9127 
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the IBM Solution 

TM 

HASPBOX 


©PTMSM: 

yun 


the CDC Solution 


UTSOOBOX 


\ (g@[^(g)[^70(o)K] r 

RSTS'VAX’RSX! 

DATA COMMUNICATIONS 


• INSTALLATIONS THROUGHOUT NORTH AMERICA AND EUROPE 

• FRONT END PROCESSOR-BASED FOR LOW OVERHEAD 

• FULL LINE UTILIZATION FOR HI-THPUPUT (UP TO 19.2 KB) 

• USER INTERFACE DESIGNED FOR RELIABILITY AND SIMPLICITY 


614/421/2094 COLUMBUS. OH 43212 USA TWX BIO 482 1631 


AUTHORS!! 

SEND YOUR ARTICLES TO THE 
RSTS PROFESSIONAL ON MAG 
TAPE, IN EITHER RNO, PIP OR 
WORD-11 FORMAT. 

Eighty percent of this issue of the RSTS Profes¬ 
sional was transmitted via telecommunications 
from author’s mag tapes to phototypesetting 
equipment and was not retyped. 


1 Print display text 
! 

&This batch does daily batches and can close the week 

i 

! Get responses to questions 
! 

?"Do week-end processing[Enter "Y" if the week is closing]N*0*1*0 
! 

1 Batch stream code 
! 

I Phase 1 — Process all checks 
! 

$RUN CHECKS 

.IF "DO WEEK-END PROCESSING"=Y 
1 

1 Phase 2 — Close the week 

i 

$RUN CLOSER 

.END 

$EOJ 

Ready 

PIP EXMPL2.PCF 
; Stream to compile programs 
; Print display text 


; Get responses to questions 

?"compile with BASIC+2[Enter "Y" if compiling with BP2]Y*0*1*0 
; Do compiles 

!lF "compile with BASIC+2"=Y 
RUN $BASIC2 

LOCK/TSK/LINE/CHAIN/DOUBLE 
.END 

OLD SOURCE:BMP100.BAS 
COMPILE 

OLD SOURCE:BMP200.BAS 
COMPILE 

OLD SOURCE:BMP250.BAS 
COMPILE 

OLD SOURCE:BMP900.BAS 
COMPILE 

.IF "compile with BASIC+2"=Y 

EXIT 

PIP 

TASK:.BAC<232>=BMP100. TSK,BMP200.TSK,BMP250.TSK,BMP900.TSK 
BMP100.TSK,BMP200. TSK,BMP250.TSK,BMP900.TSK/DE 
"Z 

.END 

.IF "compile with BASIC+2"OY 
PIP 

TASK:<232>=BMPl00.BAC,BMP200.BAC,BMP250.BAC , BMP900.BAC 
BMP100.BAC,BMP200.BAC,BMP250.BAC,BMP900.BAC/DE 
"Z 

.END 

Ready 

RUN BLDCTL 
BLDCTL V01.00 

File for input? EXMPL1 
Opening EXMPL1.PCF for input... 

File for output? KBs 
Opening KBs.CTL for output... 

This batch does daily batches and can close the week 

Enter "Do week-end processing" : Y 
$JOB/CCL/NOLIMIT 
! 

! Batch stream name: TEST 
! 

I 

! Print display text 
! 

!This batch does daily batches and can close the week 
! 

! Get responses to questions 
! 

!"Do week-end processing[Enter "Y" if the week is closing]N*0*1*0 
! 

I Batch stream code 
1 

! Phase 1 — Process all checks 

j 

$RUN CHECKS 
! 

! Phase 2 — Close the week 


i 

$RUN CLOSER 
$EOJ 

Ready 

RUN BLDCTL 
BLDCTL V01.00 

File for input? EXMPL1 
Opening EXMPL1.PCF for input... 

File for output? KBs 
Opening KBs.CTL for output... 

This batch does daily batches and can close the week 

Enter "Do week-end processing" s ? 

Help text is as follows: 

Enter "Y" if the week is closing 
Enter "Do week-end processing" : N 
$JOB/CCL/NOLIMIT 
! 

1 Batch stream name: TEST 

I 

! 

! Print display text 

IThis batch does daily batches and can close the week 
! 

1 Get responses to questions 
! 

!"Do week-end processing[Enter "Y" if the week is closing]N*0*1*0 
! 

1 Batch stream code 
! 

! Phase 1 — Process all checks 

i 

SRUN CHECKS 
$EOJ 

Ready 

RUN BLDCTL 
BLDCTL V01.00 

File for input? EXMPL2 
Opening EXMPL2.PCF for input... 

File for output? KB: 

Opening KBs.CTL for output... 

Enter "compile with BASIC+2" : YES 

%Input must be no more than 1 character long. 

Enter "compile with BASIC+2" : Y 

!"compile with BASIC+2[Enter "Y" if compiling with BP2]Y*0*1*0 
RUN 5BASIC2 

LOCK/TSK/LINE/CHAIN/DOUBLE 
OLD SOURCEsBMPlOO.BAS 
COMPILE 

OLD SOURCE:BMP200.BAS 
COMPILE 

OLD SOURCE:BMP250.BAS 
COMPILE 

OLD SOURCESBMP900.BAS 

COMPILE 

EXIT 

PIP 

TASK:.BAC<232>=BMP100.TSK,BMP200.TSK,BMP250.TSK , BMP900.TSK 
BMP100.TSK,BMP200.TSK,BMP250.TSK,BMP900.TSK/DE 
"Z 

Ready 

RUN BLDCTL 
BLDCTL V01.00 

File for input? EXMPL2 
Opening EXMPL2.PCF for input... 

File for output? KB: 

Opening KBs.CTL for output... 

Enter "compile with BASIC+2" : N 

!"compile with BASIC+2[Enter "Y" if compiling with BP2]Y*0*1*0 

OLD SOURCE:BMP100.BAS 

COMPILE 

OLD SOURCE:BMP200.BAS 
COMPILE 

OLD SOURCE:BMP250.BAS 
COMPILE 

OLD SOURCE:BMP900.BAS 

COMPILE 

PIP 

TASK:<232>=BMP100.BAC,BMP200.BAC,BMP250.BAC,BMP900.BAC 
BMP100.BAC,BMP200.BAC,BMP250.BAC,BMP900.BAC/DE 
“Z 


Ready 
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DECUS CANADA 

By Carl Marbach 


Your intrepid Editor winged his way North again this year to visit 
Montreal, P.Q. the site of this year’s Canadian Decus Symposium. I 
met many of the friends I had seen for the first time last year, and 
wondered privately why I only see them at the Canadian Symposium; 
but then I don’t see a lot of Americans at these meetings either. Decus 
is Decus whether its north or south of the border and I must confess 
the northern branch is much friendlier than its southern neighbor. 

Montreal is a delightful city filled with big city noises and smells, 
but small town friendliness. Bonjour is the greeting of the day and 1 
admit to feeling somewhat inadequate if bi-lingual means 1 speak 
COBOL, BASIC, DIBOL, RPG, and FORTRAN but no French. Customs is 
no problem (What are these magazines????) and the proximity to the 
States argues for some more attendance from the south. The 
restaurants are. . . but on to the technical end of this meeting. 

Most sessions were translated from English to French but not 
the other way around, translators were stationed in little booths in 
each of the rooms of the Queen Elizabeth (LE REINE ELIZABETH) 
Hotel. The sessions were held from Wednesday through Friday with 
Tuesday saved for seminars (tutorials etc). I can’t get to everything I 
want to hear, there is just too much. When are we going to get a 
timely, fully prepared proceedings and/or the availability of cassette 
tapes of the sessions? Here then is a distillation of my highlights of 
what I could hear. 

A rehash of the intricate Terminal handler for RSTS. Isn’t this go¬ 
ing to be rewritten soon anyhow? It is enlightening to see how com¬ 
plicated it can be just handling people typing away at keyboards, sort 
of reminds me of my first PDP-8 program: Accept a character and 
make it echo on the keyboard. Took me a whole day! Now do it using 
interrupts. Another day! Echo control?? Forget it. 

How about VAX performance. An 11 /750 peaks out at about 80 
terminals due to memory limitations while an 11 /780 (4MB) kept go¬ 
ing to at least 128. If you are not CPU bound, an 11 /70 did almost as 
well, although I don’t know where it got enough small buffers. The 
summation with lots of caveats was 30-50 users for the 11 /750 
more for the 11 /780 while a RSTS system (11 /70) was good if you 
were not CPU bound. I asked when a second Unibus would be a good 
idea and when a massbus would be a good idea and when a second 
massbus would be a good idea. They didn’t know. Didn’t make much 
difference they thought. I don’t believe it. A massbus has a band¬ 
width much larger than the unibus, and I know that my disks could 
saturate the unibus and 1 have an 11 /70. the VAX must be able to 
swamp the unibus in a COMMERCIAL environment. I’d like to bet that 
there is a huge difference between a unibus VAX and a massbus one. 
and -that by judiciously choosing when to add more you can fully 
utilize the CPU and the disks. Channels for disks is an IBM type word 
but it starts to mean something for VAX. 

There were many more sessions dealing with specific RSTS ap¬ 
plications and how professional people were supporting their 
customers. We ought to know by now that in order to maintain soft¬ 
ware you must have standards, and lots of other conventions that 
you live by. This is where you can see and hear what people have done 
that have made it past a few years. It is always great to be able to 
hear from these COMMERCIAL users. The atmosphere in Canada 
seems to support them better than we do in the Lower 48. 

I came. I learned and I went home knowing more and feeling 
that the trip to Canada and Decus was one that I hope I won’t miss in 
the future. Good Job Decus people. Keep up the good work. 9 
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Access Control 
and Utilization Monitor 

By C.M. Battistel and Ed Giovanella 

Open Learning institute, 7671 Alderbridge Way, Richmond, BC, Canada, V6X 1Z9 


Many installations find that the access control and protec¬ 
tion provisions provided by RSTS are often inadequate or are 
too inflexible to meet their needs. For example, consider the 
situation where we have ten users, each of whom must have 
access to a different combination of five programs. Using RSTS 
protection codes and account placement of programs and files, 
it is impossible to implement controlled access to these pro¬ 
grams. Further, if the combinations of programs to be 
accessed by an individual were to change, the whole account, 
protection code structure would have to be changed. Clearly, 
although RSTS may provide a reasonable level of access control 
where there is little overlap of program access requirements, it 
is not adequate in most commercial environments. 

Another inadequacy of RSTS exists in terms of utilization 
monitoring. The information provided by MONEY while useful, 
does not provide enough detail for many installations. It is, for 
example, useful to know not only who is using the system, but 
what programs account for the biggest load. This is especially 
true in an environment where charge-back and priority setting 
is important. 

There exist instances when a program should not be run 
concurrently with specific other programs. An example of this 
is running a General Ledger Close program while another user 
is running a G/L data entry program. Again, we have found 
that RSTS and RMS do not handle this situation satifactorily. 
The typical RSTS solution would be to make one program open 
the file ALLOW READ. However, if this is done when a program 
is run against the same file that opens the file ACCESS READ 
and ALLOW MODIFY, an error is generated. Thus we are left 
with having to do complex error trapping to try and control this 
situation. 

To resolve these problems we have developed a system 
which not only controls access, but also monitors utilization. 

ACUM is an acronym for Access Control and Utilization 
Monitor. ACUM consists of a series of programs which restrict 
access to all applications programs to authorized users and 
monitor application program utilization rates. ACUM also 
includes a number of programs which provide information 
useful for system management. All applications programs are 
accessed through and return to ACUM. All applications pro¬ 
grams also maintain utilization data during execution. 


ACUM Data Base 

Four files are required to accomplish the control and 
utilization monitoring functions of ACUM. the Access Control 


File, The Utilization Monitoring File, the Active Users File, and 
the Program Conflict File. 

The Access Control File contains all of the data needed to 
ensure that only authorized users can gain access to the 
application programs and to restrict users to a specific set of 
programs within the entire application package. 

There are 3 record types within the Access Control File. 
User Records (containing user I.D. number, user name and 
access code) define authorized users to the system. Each valid 
program within the applications package is defined in a Pro¬ 
gram Record (containing program code, program name and 
the name of the program's .TSK file). The third record type 
within the file is the User Clearance Record. Each of these 
records "link" a user to a program, thereby clearing a user for 
that specific program. Users may be cleared for "ALL" pro¬ 
grams or may have several Clearance Records to authorize 
them for several programs. 

The Utilization Monitoring File contains one record for 
each user-program and user-file combination. Each user- 
program record contains User Number, program name. CPU 
time, connect time, number of pages printed, and number of 
copies produced. The user-file records contain User Number, 
file name, number of records created, changed, deleted, out¬ 
put, screened for changes, and screened for output. 

The Active Users File contains one record for each active 
applications job. Each record contains the User Number, the 
program being run, the start CPU and connect time, the key¬ 
board number, and the RSTS job number. 

The Program Conflict File contains one record for each 
applications program which should not be run while another 
specific program is active. Each record contains the name of 
the program which cannot be run and the name of the program 
it cannot be run with. 


Program Access Through “ACUM" 

Each user of the system is assigned a unique user I.D. 
number and an access code or password. This data is main¬ 
tained in the Access Control File. In addition, the Access Control 
File also specifies the programs which a user is authorized to 
access. In this way, an individual user can be authorized to use 
only selected programs from the total applications package. 

Application program access through ACUM is accom¬ 
plished in the following manner. The system will automatically 
run the Access Control program when a non-privileged user 
logs onto the system. This program prompts the user to enter 
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HAD 

ENOUGH? 

Outrageous Prices? 

Impossible Lead Times? 

Little Or No After Sale Support? 



Compumation, the name that is 
quickly becoming synonymous 
with reliability & quality, now offers 
a complete line of D.E.C. compat¬ 
ible system enhancements. 

The newest members of our line 
are our new Comp-DK & Comp- 
DF Backplanes, which are DD11 - 
DK and DD11-DF equivalents, 
and our Comp-CK & Comp-CF 
which are DD11 -CK and DD11 - 
CF equivalents. Our lead time is 
typically 30-45 days, ARO. 
SUPPORT? We offer the finest, 
over the phone or on site. 


compumACion 

Call us. When you’ve had enough. 

2326 Walsh Ave. Santa Clara CA 95051 
(408) 988-8600 


D.E.C. is a registered trademark of Digital Equipment Corp. 
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-!—"N 

Word Processing* 
for 

RSTS/E 

On Track Systems provides: 




their I.D. number and access code (password). The Access 
Control File is checked to verify that the user has entered a 
valid combination. An error message is displayed if the combi¬ 
nation is invalid and the user is re-prompted. If the user fails to 
enter a valid combination after three attempts, the user is 
logged off the system and a warning message is displayed on 
the system console. 

If the user enters a valid I.D. number and access code, he 
or she is at ACUM command level and may issue commands or 
program requests to the Access Control program when promp¬ 
ted to do so. Valid user commands are "LIST" which displays all 
programs for which the current user is authorized, and “END" 
which terminates the job and logs the user off the system. If 
the user enters a program request, the Access Control File is 
checked to verify that the program exists and that the current 
user is authorized to use it. If either edit fails, an error message 
is displayed and the user is re-prompted. If the user enters a 
valid program request, the Access Control program places the 
user I.D. number in core common, updates the Active User File 
to reflect the status of the user, checks for conflicts with 
currently active programs and if no conflict exists. CHAINS to 
the appropriate application program. When the user is finished 
with the application program, they are CHAINED back to the 
Access Control program and the Active User File is updated to 
reflect their current status. Users are then re-prompted for a 
command or program request. If command “END" is entered, 
the Active User File record corresponding to the user andjob is 
deleted, and the user is logged off the system. It can be seen 


Sales J 

Service 

Installation V 

Demonstrations f 
Training \ 

Consulting _ ) 


At your 
convenience! 

At your 
office! 


(215) 542-7008 

P.O. BOX 245, AMBLER, PA 19002 

* Word-11 by Data Processing Design, Inc., 

181 W. Orangethorp Avenue, Placentia,CA 92670 


J 


from the above description that during a job session, a user is 
always in communication with an application program and at 
no time can they gain access to RSTS. For the convenience of 
application programmers, it is possible to clear a user to run a 
program which allows access to RSTS. 

Two other points of interest concerning ACUM must also 
be mentioned. The first statement of each application program 
is a CALL to a subroutine which immediately logs the user off 
the system. The Access Control program "CHAINS” to applica¬ 
tion programs at a point past the subroutine CALL. It is, 
therefore, impossible to access any application program 
directly without going through the Access Control program. 
The second point of interest is the passing of the user I.D. 
number into core common. Each application program can then 
obtain the user I.D. from core common and thereby maintain 
utilization statistics for that user. 

All programs must chain to the Access Control program 
upon termination. This enables users to select additional appli¬ 
cation programs for execution or issue the "END" command 
which automatically logs the user off. In cases where a job 
detaches and a new job is created. LOGIN has been modified to 
chain to the Access Control program. The detached job upon 
termination kills itself. LOGIN chains to the Access Control 
program by running a program called START in the user's 
account. If there is no START program in the user 's account the 
user is logged into RSTS command level. This feature is used to 
enable programming staff immediate access to RSTS without 
using the Access Control program. 


25 % SAVINGS 

TO LARGE LESSEES OF 

DEC TERMINALS 

OUR Typical 

PRICE Competition 

LA120 $94/mo. $l24/mo. 

LA34 44 59 

VTIOO 64 85 

• NEW EQUIPMENT 

• INCLUDES DEC LOCAL ZONE MAINTENANCE 

• PRICES BASED ON 25 UNIT SINGLE BATCH 
NEW INSTALLATIONS FOR ONE YEAR 

• PURCHASES AV AILABLE AT SIMILAR 
DISCOUNT 

Dacoterm, Inc. 013) 

11365 CULVER ROAD 229-7850 
BRIGHTON, MICH. 48116 453-7250 
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Utilization Monitoring 

The Utilization Monitoring Function of ACUM is accom¬ 
plished through the tracking of user system utilization within 
each application program. The utilization data must be main¬ 
tained from the time that the Access Control program chains 
to an applications program, to the time that the application 
chains back to the Access Control program or, in the case of a 
job which detaches, until the job kills itself. Although entry to 
applications can only be made through the Access Control 
program, exit from applications programs can take a number 
of forms. 

1. Use of ESC key during data entry 

2. KB wait exhausted during data entry 

3. ’normal' exit from mainline by chaining to the Access 
Control program 

4. exit from mainline by chaining to QUE 

The method of collecting utilization data remains con¬ 
stant regardless of exit mode: however, the method of updat¬ 
ing utilization data stored in ACUM files will vary. 

In order to properly maintain utilization data while pro¬ 
grams are executing the following functions must be per¬ 
formed at the beginning of each applications program. 

1. Declare a common area with the following data: 

a. ACUM user number (the Access Control Program 
places the user number in core common) 


BATCH/SPOOLER REPLACEMENT 

This document is a description of the package FASTQUE, a 
SPOOLER/BATCH/ATPK replacement. 

Features: 

1) Completely compatible with RSTS/E V7.0. 

2) Spawns spoolers and batch jobs as needed, up to limit 
set by system manager. 

3) Implemented in PASCAL, with MACRO-11 external 
procedures, for ease of understanding and fast 
response. 

4) Uses new send/receive formats. 

5) Complete documentation of calling formats 

6) Parameter fill in for control files 

7) On line command file execution (also with parameter 
fill-in). 

8) Larger instruction set for control files 

9) Global time limits, page limits set by operator 
10) Simple command syntax. 

This package is a replacement for 

1) BATCH, BATIDL, etc. ... 

2) QUEMAN, QUE, etc. ... 

3) ATPK, ATPRO 

4) PLEASE, SHUTUP 

Available March 1, 1981 
Single CPU license = *900 00 

Call Tom Courtney (617) 266-1930 for 
a set of report samples or write to: 

MariyOpe 636 Beacon Street 
Boston, MA 02215 


TERMINALS FROM TRANSNET 


PURCHASE PLAN • 12-24 MONTH FULL OWNERSHIP PLAN • 36 MONTH LEASE PLAN 


DEC 


PURCHASE 

PRICE 


PER MONTH 
12 MOS 24 MOS 36 MOS 


TEXAS 

INSTRUMENTS 


DATAMEDIA 


LEAR SIEGLER 


HAZELTINE 


TELEVIDEO 


NEC SPINWRITER 


QUME 


HEWLETT PACKARD 


CENTRONICS 


LA36DECwriter II. 

SI ,095 

SI 05 

$ 58 

$ 40 

LA34 DECwriter IV. 

995 

95 

53 

36 

LA34 DECwriter IV Forms Ctrl.. 

1,095 

105 

58 

40 

LAI20 DECwriter III KSR. 

2,295 

220 

122 

83 

LAI 20 DECwriter III RO. 

2.095 

200 

112 

75 

VT100 CRT DECscope. 

1.595 

153 

85 

58 

VT132 CRT DECscope . 

1.995 

190 

106 

72 

TI745 Portable Terminal. 

1,595 

153 

85 

58 

TI765 Bubble Memory Terminal 

2,595 

249 

138 

93 

TI783 Portable KSR, 120 CPS . 

1,745 

167 

93 

63 

TI785 Portable KSR, 120 CPS . 

2,395 

230 

128 

86 

TI787 Portable KSR, 120 CPS . 

2,845 

273 

152 

102 

TI810 RO Printer. 

1,895 

182 

102 

69 

TI820 KSR Printer. 

2,195 

211 

117 

80 

DT80 1 CRT Terminal. 

1,695 

162 

90 

61 

DT80 5 APL CRT. 

2,095 

200 

112 

75 

DT80 5L APL 15" CRT. 

2,295 

220 

122 

83 

ADM3A CRT Terminal. 

875 

84 

47 

32 

ADM31CRT Terminal. 

1,450 

139 

78 

53 

ADM42 CRT Terminal. 

2,195 

211 

117 

79 

1420 CRT Terminal. 

945 

91 

51 

34 

1500 CRT Terminal. 

1,095 

105 

58 

40 

1552 CRT Terminal. 

1,295 

125 

70 

48 

920 CRT Terminal. 

895 

86 

48 

32 

950 CRT Terminal. 

1,075 

103 

57 

39 

Letter Quality, 55 15 R0. 

2,895 

278 

154 

104 

Letter Quality, 55/25 KSR. 

3,295 

316 

175 

119 

Letter Quality KSR, 55 CPS ... 

3,395 

326 

181 

123 

Letter Quality RO, 55 CPS .... 

2,895 

278 

154 

104 

2621A CRT Terminal. 

1,495 

144 

80 

54 

2621P CRT Terminal. 

2,650 

255 

142 

96 

730 Desk Top Printer . 

715 

69 

39 

26 

737 W/P Desk Top Printer .... 

895 

86 

48 

32 


FULL OWNERSHIP AFTER 12 OR 24 MONTHS • 10% PURCHASE OPTION AFTER 36 MONTHS 


ACCESSORIES AND PERIPHERAL EQUIPMENT 

ACOUSTIC COUPLERS • MODEMS • THERMAL PAPER • RIBBONS • INTERFACE MODULES • FLOPPY DISK UNITS 


OTHER POPULAR TERMINALS. COMPUTER PERIPHERALS AND COMPUTERS AVAILABLE. 


IransNet CORPORATION 

1945 ROUTE 22 • UNION, N.J. 07083 • (201) 688-7800 

TWX 710-985-5485 



b. number of data files 

c. current CPU time 

d. current connect time 

e. 6 character program name 

f. 6 character file name of data files used in program 

2. During program execution the program must maintain 
in the common area the following data: 

a. number of pages of hardcopy output (handled by 
subroutines) 

b. number of copies of hardcopy output (handled by 
subroutine) 

c. number of file records created in each file 

d. number of file records changed in each file 

e. number of file records deleted in each file 

f. number of file records output from each file 

g. number of file records read and reviewed from 
each file in an attempt to find a specific record 
which is to be changed 

h. number of records read from each file in order to 
find a specific sub-set of the file which is then 
output. 

The utilization data maintained by each applications pro¬ 
gram is written to the Utilization Monitoring File by a subrou¬ 
tine prior to program termination. The method used for 
update varies with the manner in which the program ended. 
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Program Conflict Control 

Since ACUM knows at all times which application pro¬ 
grams are running, it can control the execution of conflicting 
programs. To accomplish this ACUM maintains a table contain¬ 
ing the names of all programs which conflict with each other. 
This table is checked by the Access Control program prior to 
chaining to a user selected applications program. 

Prior to implementing an applications program which 
conflicts with other application programs, programmers 
create the appropriate conflict records in the Program 
Conflict File as follows: 

USER-SELECTED-PROGRAM CONFLICTING-PROGRAM 

PROGA MPROG 

PROGA PROGER 

PROGA TSTPRG 

If the conflict works both ways for all these programs the 
following additional records would be required: 

MPROG PROGA 

PROGER PROGA 

TSTPRG PROGA 

When a user selects a program, the Access Control pro¬ 
gram checks the Program Conflict File for a matching USER- 
SELECTED-PROGRAM. For each one found, the corresponding 
CONFLICTING-PROGRAM field is used to search the Active 
Users File. If a matching record is found in the latter file an 
error message is displayed to the user, and he or she is 
prevented from executing the USER-SELECTED-PROGRAM. 

ACUM Management Reports 

Two sets of reports are available to inform management 
as to the current status of application programs, users and 
computer utilization. One set of reports is printed from the 
Access Control File and lists all application programs and au¬ 
thorized users. The other set is produced from the Utilization 
Monitoring File and provides statistics on data file activity and 
computer resource utilization. These reports are described in 
detail below. 


Access Control File Listings 

There are three simple listings that can be produced from 
the Access Control File. These reports show the current status 
of users, user clearances, and application programs. The 
reports can be produced either at a keyboard or on the line 
printer. 

a. Application Programs: lists each application program 
available through ACUM and shows the program code, 
program description, and the name of the program's 
.TSK file. 

b. Authorized Users: lists each user cleared to access 
ACUM and shows user I.D. number, name and access 
code or password. 

c. Authorized Users and Clearances: lists each user with 
access to ACUM and the application programs for which 
the user is cleared. The report shows user I.D. number. 


user name, password, program code and program de¬ 
scription. Appropriate messages are printed if the 
user is cleared for all programs or not cleared for any 
programs. 


Computer Resource Utilization Summaries 

There are four summary reports that can be provided 
from the Utilization Monitoring File. These reports contain a 
variety of utilization statistics including file activity. CPU and 
connect time usage and volume of hardcopy output. They are 
designed to assist management in monitoring the utilization of 
application data files and computer resources and can be a 
valuable aid in detailing utilization by individual users, defining 
through-put "bottle-neck" areas, planning for future hardware 
and/or software enhancements and monitoring file activity to 
determine file volatility and storage requirements. 

The reports can be displayed at a terminal or printed on 
the printer. 

a. File Activity By User: This report analyzes file activity 
by individual user. Six activity categories (number of 
records created, changed, deleted, displayed, screened 
for change and screened for display) and a total activity 
count is printed for each user of the data file. The report 
also shows the percentage of each activity category as 
it relates to the total activity by each user. A total line is 
also printed for each file showing the total activity and 
related percentages for all users of the file. The pro¬ 
gram that produces the report can be instructed to 
print data for all files or one file. 

b. Computer Utilization By User: This, and the next two 
reports display the computer resource utilization sta¬ 
tistics in a variety of ways. This report organizes the 
data by user number and displays connect time. CPU 
time, number of pages and copies printed and total 
paper used. The program also calculates and displays, 
for each user, the percentage of each utilization cate¬ 
gory as it relates to the total of that category. 

c. Computer Utilization By Program: This report is identi¬ 
cal in content to the one "By User" but is presented in 
sequence by Program Name. 

d. Computer Utilization By User and Program: This report 
organizes the connect and CPU time statistics by user 
and program. For each user, the user number and user 
name is printed. For each of the user’s programs, the 
program name, description, connect time and CPU time 
is displayed. The percentage of each program s connect 
and CPU times (as it relates to the total times for the 
user) is calculated and printed. 


CONCLUSIONS 

The above description represents the results of our 
attempts to provide access control and utilization monitoring 
capabilities beyond those provided by RSTS. We have found the 
system extremely adaptable and easy to use and maintain. 9 
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PDP/11 Systems — UTILITIES 

By M. A. Jackson, A.C. Nielsen Co. Ltd., Oxford. UK 


INTEGER TO DECIMAL STRING CONVERSION SUBROUTINE 


Invocation 

CALL NUMASK (A$. B%) 


Processing 

This module right-aligns in A$ the decimal string representation of B%. Only as many characters as are necessary to hold 
the value are changed: other characters in A$ are unchanged. If B% equals zero, no action is taken, i.e. the routine will not 
right-align a single zero character into a blank string. 

Checks 

1. That two parameters are passed. — No action taken. 

2. That B% is not negative. — No action taken. 

3. That A$ is long enough to hold the string value of B%. — No action taken. 


Critical considerations 
Size 108 bytes 
Speed < 1 ms 


FINALLY! A publication exclusively for DEC* 
or DEC-related users, manufacturers, and consultants! 

Order your free subscription TODAY! 


hfotiihepij 

FREE Subscription Form 



IMPORTANT — To qualify, please answer all questions below. 


Type of DEC computer at this location: 


Name 

Title 


Company 
Company Address 
City/State/Zip 
Phone( ) 

Signature 
Date 


CPU 

Disk 

Floppy 

CRT 


Operating System 

Tape 

Printer 

Other 


Primary product or service of your firm at this location: 
End User OEM (type) 


System House 

CH Check here if you wish to receive promotional mail from Consultant 

Hardcopy. Data Processing 


MFG 


Educator 

Government 


HMISEI t is published six times per year by Seldin Publishing, Inc. One subscription per DEC site at no charge. 
One year subscription for other than qualified individuals may be purchased at the following rates: 

United States — Surface Mail.$10.00 

United States — Air Mail.$17.00 

All Other Countries.$19.00 

SEND TO WMMEPl 1 BOX 759 — BREA, CALIFORNIA 92621 
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♦ i ITLE NuMASK 
.IDENT /CO/ 

v CALL NUMASN (A$ ? B% ) 


» THIS SUBROUTINE IS CALLED FROM BASIC-PLUS-2 * I T RIGHT-ALIGNS THE 
? DECIMAL REPRESENTATION OF B% IN A GIVEN MASK STRING A*« IT IS A NO-OP 
i If B% IS NEGATIVE OR ITS DECIMAL REPRESENTATION WILL NOI FIT INTO A*» 
i 

numask:: 



CMP 6 

*2»(R5) 

7 


BNE 

RETRN 

7 


MOV 

04'R5) 7 R4 

7 


BLT 

RETRN 

7 


MOV 

2(EG)vEO 

7 


MOV 

2 < RO)>R1 

5 


BEQ 

RETRN 

7 


MOV 

♦POWERS ? R2 

7 

CLR! 

CLR 

R3 

7 

SUBT ♦ 

SUB 

(R2)? R 4 

7 


BLT 

NEG 

7 


INC 

R3 

7 


BR 

SUBT 

7 

neg; 

ADD 

(R2> 7 R4 

7 


CMP 

2 (. R 0 ) 7 R1 

7 


BNE 

PUSH 

% 


TST 

R3 

7 


BEQ 

NEXT 

7 

PUSH♦ 

MOV 

R3 7 -(SR) 

7 


DEC 

Ri 

7 


BLT 

QVERFL 

7 

NEXT i 

TST 

(R2) + 

7 


TST 

(R2) 

5 


BNE 

CLR 

7 


MOV 

(R 0 ) 7 R 2 

7 


ADD 

2(RO )7 R2 

7 

fill: 

CMP 

2 C RO )7 Rl 

7 


BEQ 

RETRN 

7 


BIS 

#000060 7 <SP) 

7 


HGVB 

(SP) + 7 ~ < R2) 

7 


INC 

Rl 

7 


BR 

FILL 

7 

QVERFLi 

CMP 

2 < RO)v Rl 

7 


BEQ 

RETRN 

7 


TST 

<SP> + 

7 


INC 

Rl 

7 


BR 

QVERFL 

r 

RETRNJ 

RETURN 



POWERS l 

♦ WORD 

10000 * 7 1000 

7 100, 


2 ARGUMENTS T 
NO - GIVE UP 
E4 BX 

NEGATIVE - GIVE UP 
EO « ADDR OF A* HEADER 
El - LENGTH OF AS 
A$ NULL -- GIVE UP 
START R2 AT 10000 
INIT COUNTER 
SUBTRACT POWER OF 10 
OVERDONE IT 
INCREMENT CNTR 
GO SUBTRACT AGAIN 
ADD IT BACK IN 
FIRST CHAR ? 

NO ~ NEED IT WHATEVER 
IS IT ZERO ? 

YES - BYPASS PUSH 
PUSH DIGIT ONTO STACK 
COUNT DOWN NUMBER OF CHARS 
1 GO MANY CHARS 

POINT R2 AT NEXT (LOWER) POWER 
CHECK END OF POWERS 
MORE TO SUBTRACT 
R2 ~ ADDR OF A$ 

R2 « ADDR OF END OF A$ + 1 
ALL DIGITS POPPED ? 

YES GO HOME 
CUT TO ASCII DECIMAL 
MOVE DIGIT TO STRING 
COUNi CHARS POPPED 
G0 CHECK FINISH E D 
ALL DiGI VS P0PP£D ? 

YES -- GO HOME 

'POP A DIGIT' (TO NOWHERE) 
COUNT CHARS POPPED 
GO CHECK FINISHED 

? 10 ♦ ? 1 1 0 


, END 
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VERIFY SUBROUTINE 

Invocation 

CALL VERIFY (A$. B$. C%) 

Processing 

This module returns in C% the position of the first character in B$ which is not in A$, or zero if all characters in B$ are in 
A$. It also returns zero if B$ is null, even if A$ is also null. This is logical (there are no characters in B$ which are notin A$) and 
consistent with Basic-plus-2 functions. 

Checks 

1. That three parameters are passed. — No action taken. 

Critical Considerations 
Size 70 bytes 

Speed Typically <1mls; dependent on the string lengths. 

A$ is searched sequentially from the left; characters expected to be most frequently present in B$ should therefore be at 
the left of A$. 


* TITLE VERI • 
♦IDENT /00/ 


7 CALL VERIFY(A*rB«>C%> 

7 

5 SUBROUTINE TO RETURN THE POSITION OF THE FIRST CHARACTER IN BT 


7 WHICH 

7 

VERIFY ; 

IS NOT 

* 

* 

IN AT 4 RETURNS 

0% 


CMPB 

♦3 7 (R5) 

y 


BNE 

RETRN 

V 


CL..R 

06(R5> 

7 


MOV 

4 < R5) 7 RO 

V 


MOV 

2 < RO ) »R1 

f 


BEQ 

RETRN 

9 

TES(At 

MOV 

2 ( R5) 7 ft2 

9 


MOV 

2 ( R 2 ) ? ft 3 

9 


BNE 

START 

i 


A. I X W 

06(R5) 

? 


BR 

RETRN 

9 

S T A R T t 

MOV 

( RO ) y RO 

9 


ADD 

RO 7 RI 

9 


ADD 

( R2 ) 7 ft3 

;• 

NEXTAt 

MOV 

( R2 > 7 R4 

i 


INC 

06(R5> 

V 

TESTSt 

CMPB 

( R 0) 7 ( ft4 )+ 

7 


BEQ 

NEXTB 

9 


CMP 

R4 7 R3 

9 


BNE 

TESTS 

9 


BR 

RETRN 

7 

NEX ! Bt 

INC 

RO 

9 


CMP 

RO 7ftl 

9 


BNE 

NEXT A 

9 

RETRNi 

CLR 

R E T U ft N 

06 < R5 ) 

9 


a END 


IF ALL BYTES ARE PRESENT♦ 


3 ARGUMENTS ? 

NO - GIVE UP 
IN IT C/„ =-• 0% 

RO -- AD DR OF BT HEADER 
Rl LENGTH OF BT 
BT NULL - RETURN 0% 

R2 = ADDR OF AT HEADER 
R3 = LENGTH OF AT 
NOT ZERO LENGTH 
w,. - 17. 

AT NULL - MUST RETURN 1% 

RO « ADDR OF BT 

Rl » ADDR OF END OF BT + 1 

R3 = DITTO AT 

ADDR OF AT 

INCREMENT C% 

COMPARE BYTE OF BT WITH BYTE OF AT 
IT'S THERE 7 GO GET NEXT OF BT 
PAST ALL OF AT ? 

NO -• TESI NEXT 

YES - C% ALREADY SET - RETURN 
POINT TO NEXT OF BT 
PAST ALL OF BT ? 

NO - TEST NEXT OF BT 
YES - SET C% = 07. 
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INTEGER TO OCTAL STRING CONVERSION SUBROUTINE 

Invocation 

CALL OCTAL (A$, B%) 

Processing 

This module returns in the six-byte string A$ the octal string representation of B%. 
Checks 

1. That two parameters are passed. — No action taken. 

2. That A$ is six bytes long. — No action taken. 

Critical considerations 
Size 62 bytes 
Speed <1 ms 


* TITLE OCTAL 

♦ IDENT /Ol/ 

CALL OCTAL 


? 

9 
9 
9 
9 
9 

OCTAL i 


THIS 

INTO 


SUBROUTINE PUTS THE SIX CHARACTER OCTAL REPRESENTATION OF £% 
THE (SIX-BYTE) STRING A« 


LOOP l 


ERR J 


CMPB 

(R5) 9*2 

9 2 ARGUMENTS ? 

BHE 

ERR 

9 NO - ERROR 

MOO 

2(R5) 9 RO 

9 RO - ADDR OF A* HEADER 

CMP 

2 (RO) 9*6 

9 At- SIX BYTES ? 

BNE 

ERR 

9 NO - ERROR 

MOO 

04(R5 >jRI 

? R1 — B % 

MOO 

(RO)>R2 

v R2 = ADDR OF A* 

ADD 

#6»R2 

9 R2 == AD DR OF END OF A$ 

MOO 

#5vR3 

i LOOP COUNT 

MOO 

R1?-(SP) 

i! WORD ONTO STACK 

BIC 

#177770 *(SP) 

7 ' ONE OCTAL OALUE" 

ADD 

*'09 (SP) 

i CONVERT TO ASC! 

MO OB 

(SP) +»-(R2) 

9 STORE IN Aifr 

ASH 

*-3»Rl 

9 SHIFT RIGHT THREE 

SOB 

R3 rLOOP 

f TEST FOR FIVE DONE 

BIC 

#177776 9 R1 

9 GET LAST BIT 

ADD 

#'Q»R1 

9 CONVERT TO ASCII 

MO OB 
RETURN 

R1»~(R2) 

9 STORE IN A $ 


+ 1 


♦ END 
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SUBSTRING PSEUDOVARIABLE EMULATION SUBROUTINE 


Invocation 

CALL INSERT (A$. B$. C%) 


Processing 

This module overwrites string B$ into string A$ starting a position C%. 
Checks 

1. That three parameters are passed. — No action taken. 

2. That C% is greater than zero. — No action taken. 

3. That B$ will fit into A$ from that position. — No action taken. 


Critical consideration 
Size 50 bytes 
Speed <1ms 


♦ TITLE 

INSERT 



.IDENT 

/OO/ 



y 

7 CALL INSERT (A$ j B$»C7.) 



7 

r SUBROUTINE TO 

OVERWRITE B$ 

INTO 

Af STARTING AT POSITION C% 

y 

insert:: 




CMF'B 

*3 v( R5 ) 

7 

3 ARGUMENTS ? 

BNE 

RETRN 

A 

7 

NO - GIVE UP 

MOV 

06(R5 >7 R2 

7 

R2 = C % 

BLE 

RETRN 

7 

C% <= 0% - GIVE UP 

MOV 

2 < R5) 7 RO 

7 

RO = ADDR OF AT HEADER 

MOV 

4(R5) 7 RI 

7 

R1 = ADDR OF B$ HEADER 

MOV 

2 ( R1 ) 7 R 4 

7 

R4 * LENGTH OF B$ 

BEQ 

RETRN 

7 

B$ NULL - NOTHING TO DO 

DEC 

R2 

7 

R2 = C% - 17 . 

MOV 

E 2 7 R 3 

7 

R3 = C % -• 1% 

ADD 

R4 y R3 

7 

R3 = C 7 . - 17 . + L..EN ( BT > 

CMP 

R3 7 2 ( RO ) 

7 

GREATER THAN LEN(AT ) ? 

BGT 

RETRN 

7 

YES -- B$ WON'T FIT - GIVE UP 

MOV 

( R1 ) 7 RI 

7 

R1 ~ ADDR OF B$ 

MOV 

(RO) 7 RO 

7 

RO - ADDR OF A* 

ADD 

R2 7 RO 

7 

RO = ADDR OF 1ST CHAR TO OVERWRITE 

movone: movb 

<R1> + 7 < RO) + 

7 

MOVE A CHAR FROM B$ INTO A$ 

SOB 

R4 7 MOVONE 

7 

GO MOVE ANOTHER IF NOT FINISHED 

reten: return 





. END 
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STRING INSERTION SUBROUTINE 

Invocation 

CALL PUSHIN (A$, B$, C%) 

Processing 

The module writes string B$ into string A$ starting at position C%. Characters in A$ from position C% onwards will be 
moved up to follow the inserted characters. 

Checks 

1. That three parameters are passed. 

2. That C% is greater than zero 

3. That B$ will fit into A$ from that position. 

4. That sufficient blanks or nulls are present at the end of A$ to be "pushed off the end". — No action taken if any fails. 
Critical Considerations 


Size 

Speed 


80 bytes 
<1ms 

.TIfLE 
* IDENT 


PUSHIN 

ZOO/ 


C A L. L. P IJ S H IN A t , & t 7 C % ) 

THIS SUBROUTINE INSERTS Bt INTO At STARTING AT POSITION CXt 
PUSHING THE REMAINDER OP At TO APPEAR AFTER Bt, 


5 At MUST HAVE SUFFICIENT BLANKS OR NULLS AT THE END TO ACCOMMODATE Bt 


PUSHIN l 


TEST 


PUSH: 


insert: 


CMF'B 

(R5)k#3 

7 

3 FARMS ? 

BNE 

RETRN 

7 

NO -- GIVE UP 

MOV 

06(R5) 7 RO 

7 

RO ~ C% 

BLE 

RETRN 

7 

CZ <-■■ OX GIVE UP 

MOV 

4(RS )7 El 

$ 

Rl ~ ADDR OF Bt HEADER 

MOV 

2(RI >7 R2 

y 

R2 = LEN(Bt) 

BEQ 

RETRN 

? 

Bt NULL - NOTHING TO DO 

MOV 

2(R5) 7 R3 

y 

R3 - ADDR OF At HEADER 

MOV 

2 < i\3 ) 7 R4 

y 

R4 = LEN(At) 

ADD 

R2 7 RO 

y 

POSN PAST END OF INSERT 

DEC 

F<0 

y 

POSN OF LAST INSERTED CHAR 

CMP 

RO ? R4 

7 

IS THIS PAST END OF At ? 

BGT 

RETRN 

7 

YES - GIVE UP 

ADD 

(R3)v R4 

7 

R4 = ADDR OF BYTE PAST At 

MOV 

R4 7 RO 

y 

STORE DITTO IN RO 

BITS 

-(R4)7*137 

7 

IS IT BLANK OR NULL ? 

BNE 

RETRN 

7 

NO ~ GIVE UP 

SOB 

R2 7 TEST 

7 

TEST AS MANY BYTES AS IN Bt 

MOV 

2(R3 )7 R2 

7 

R2 - LEN(At) 

SUB 

@6 (RS )7 R2 

7 

R2 = LEN(At) - C 7. 

INC 

R2 

7 

NO* OF BYTES TO BE PUSHED UP 

MOVE 

-• ( R4 ) 7 — (RO) 

7 

MOVE BYTES OF At AFTER INSERi 

SOB 

R27 PUSH 

7 


MOV 

2(El )7 R2 

7 

R2 « LEN(Bt) 

MOV 

(R1) 7 R 4 

V 

R4 == A DDR OF Bt 

ADD 

R2 7 R4 

7 

R4 = ADDR OF BYTE PAST Bt 

ADD 

R2 7 RO 

7 

RO = ADDR PAST LAST INSERT 

MOVB 

-(R4) 7 -(RO) 

7 

MOVE BYTES OF Bt 

SOB 

E2 7 INSERT 

7 


RETURN 





RETRN 
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BACotnms can do it all! 


BAC into RTS / BAC into MAC /BAC into BAS BACmac is a unique software tool, running 

under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RT11 — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E, RT11, Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 


Please write for more information 



— Telecom Computer Systems, Inc. 
-T—j- RO. Box 03285 

_ -J— Portland, Oregon 97203 

\—m~ 503/286-5122 



STRING INSERTION SUBROUTINE 


Invocation 


CALL PUSHON (A$. B$. C%) 

Processing 

The module writes string B$ into string A$ starting at position C%. The character in A$ at position C% is overwritten: 
characters from position C% + 1 % onwards will be moved up to follow the inserted characters. 


Checks 

1. That three parameters are passed. 

2. That C% is greater than zero. 

3. That B$ is not null. 

4. That B$ will fit into A$ from that position. 

5. That sufficient blanks or nulls are present at the end of A$ to be "pushed off the end". 

No action taken if any fails. 

Notes 

1. Check 3 implies that a character cannot simply be "lost" from A$ by specifying replacement of the character at 
position C% with a null string. 

2. That routine may be used simply to overwrite a single character in A$ (similar to INSERT subroutine) in which case 
check 5 obviously does not apply. 


Critical Considerations 
Size 82 bytes 
Speed < 1 ms. 
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5 PUSHING I HE REMAINDER O* A* I 
y A 8 M U 3 T H A V8 ;i CIE t < T B L. A N h 


r •./ si>; ‘i •_/! •. v •» 



OMF 8 

(R5) + ? *3 


b 

RETRN 


TSTB 

(R5 > t 


MOV 

v r-. d > t ? R 3 


MOV 

(RS)i7 RI 


MOV 

2 (RI > 7 R 2 


BE a 

RETRN 


MOV 

2 ( R .5 7 R 4 


MOV 

(R5)y RS 


MOV 

(RS) 7 RO 


BLE 

RETRN 


ADD 

K2 7 RO 


DEC 

RO 


CMP 

RO»R4 


BBT 

RETRN 


MOV 

R4 7 RO 


ADD 

(R3)7 R4 


DEC 

R2 


BEG 

NOTEST 

TEST J 

BITB 

(R4 ) r *137 


6NE 

RETRN 


SOB 

R2 7 TEST 

NO TEST J 

MOV 

R0 7R2 


ADD 

( R 3 ) 7 R 0 


MOV 

2 < R1)7R3 


SUB 

(RS)y R2 


SUB 

R3 7 R2 


INC 

R2 


BEG 

NOPUSH 

PUSH i 

MOVB 

-(R4 > 7 -(RO) 


SOB 

R2 7 PUSH 

no push: 

MOV 

(RI)7R4 


ADD 

R3 7 R4 

INSERT i 

MOVB 

- ( R 4 ) 7 ( R 0 ) 


SOB 

R3 7 INSERT 

RETRNJ 

RETURN 



4 END 


OS IT I ON t,/„ AND 
APPEAR AFTER B*« 

UR NULLS at the end to accommodate 


5 3 PARKS ? 

? NO ~ UIVE LJP 
i RS « ADDR OF 1ST FARM 
i Ro * ADDR OF At HEADER 

» Ri •- A DDK OF Bt HEADER 

5 R2 - LEN<Bt) 
t Bt NULL NOTHING TO DO 
» R4 ~ LEN(At) 

y R5 = ADDR OF C% 

? RO = 0% 

i 0% <> 0% - GIVE UP 

y P 0 S N P A S T E N D 0 F IN S E R T 
» POSN OF LAST INSERTED CHAR 
f IS THIS PAST END OF At ? 
y YES - GIVE UP 
» STORE LEN(Bt) IN RO 
} R4 = ADDR OF BYTE PAST At 
7 ALLOW ONE CHAR OVERWRITE 
? ONLY ONE BYTE - NEED NO SPACE 
5 IS IT BLANK OR NULL ? 

7 NG - GIVE UP 

t TEST AS MANY BYTES AS IN Bt MINUS 
7 R2 * LEN(At) 

5 RO = ADDR OF BYTE PAST At 
J R3 = LEN(Bt) 

5 R2 ~ LEN (At) -• 0% 

> R2 - LEN (At) - 0% -• LEN (Bt) 

5 NO 4 OF BYTES TO BE PUSHED UP 
7 NONE TO MOVE 

7 MOVE BYTES Of At AFTER INSERT 

7 

f R4 * ADDR OF Bt 
J R4 - ADDR OF BYTE PAST Bt 
7 MOVE BYTES OF Bt 

7 


ONE 


f 









11/45 * 11/60 

SYSTEMS: PDT11/150, 11/05, 11/10, 11/15, 11/20, 11/21 

ALSO - 11/34, 11/44, 11/70 and VAX Available 

DISK: RK11/RK05, RK07, RPR02, RP04, RP11 ctl, RM05, RX11 

MEMORY: MS11JP, MF11UR, MF11UP, MK11BE, MM11DP, 
MS11LD, MS11BR/BC, MSI IKE 

TAPE: TA11AA, TC11AA, TU30, TU55, TU56, TU66, TU77, 
TM11EA, TJE16AA, TJU16EA 

TERMINALS: LA34, LA35, LA36, LA120, LS120, VT52, 

VT100, VT132 

PRINTERS: CENTRONICS 102A, DATAPRINTER V132C, 

LP02, LP03, LP04, LP05, LP06, LP11 ctl 

OVER 5000 Other Items 

In Stock! 

CALL 617 - 437-1100 

For Our Latest Listing of DEC CPUs & Peripherals. 

AMERICAN USED COMPUTER 

P.O. Box 68, Kenmore Station, Boston, Massachusetts 02215 
Leaders in Used DEC Hardware Since 1968. 
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A Beginners Guide to MACRO-11 ... 

.. . continued from page 33 

Chapter 5 

Programming Examples. 

This section contains a runthrough of routines to 
read and write to a device. The development is historical: 
one day I read an article by Bob Meyer in the May/June 
issue (1980) of the RSTS Professional: the results are 
before you. At the end is an example of a subroutine 
which creates a file, to show how the important directive 
CALFIP is used. 


.TITLE pr.iriT 


the .''P.ITF call 


.IDENT 

/V01.2/ 

globals follow 

.GLOEL 
.GLOBL 
•GLODL 

.EXIT, .'.’RITE 

XRB, XRI.EN, XRBC, XRLOC, 
nSGI.EN, CHNIIL, BLOC’. 

XI’.CI, XRBLK , XRKOD 

MOV 

MOV 

NOV 

MOV 

MOV 

CLR 

MSGLEII, XRB+XRLEN ; 
NSGLEN, XRB+XRBC ; 
(SP), XRB+XRLOC i 
CHNIIL, XP.B+XRCI ; 
BLOCK , XRB+XRBLK 1 
XRB+XRMOD | 

; routine code follows 
i move size of buffer into 
; again 

? start address was in R5 
; channel * * 2 
; block f to print 
r only for RECORD option 

.WRITE 


; go to it. 

RTS 

. END 

R5 j 

; go home 

; end of source file 


5.3 Assembling and Running. 

Version 1 is easy to assemble and run. The com¬ 
mands 


S.1 PRINT Routine — Version 1. 

The original program in the article I read looked like 

this: 


macro print, print = print 
tkb print, print = print 
run print 


.title pm::? rrriT demo 
.ip'?:t /vo 1 . 1 / 


; • : . 7. -p.: 

• written r;Y non nr.Ycn 


XPB = 000442 
.write ■ 104004 
.EXIT = 104046 


DF.n::n directives, xrb 


ought to do it. Version 2 however, cannot even be run 
alone, since it is just a subroutine. Indeed, that is its 
chief advantage, since you can now build it with any pro¬ 
gram that needs a print routine. Suppose we had a pro¬ 
gram which looked like: 


DATA SPACE 


. EUABL 

LC 





.ASCII 

/These are the voyages . 

../ <cr><lf> 




.EVEN 




.TITLE 

TEST the PRINT subroutine. 

NSGLEN 

= . - OBUFF 

; message length = this location - 


. IDENT 

/VO1.1/ 



; start of buffer location 






; main code 


.GLOBL 

PRINT 

MOV 

fXRB, RO 

; pointer to XP.B 




NOV 

OMSGT.FN, (RO) + 

; move message length to XRB 




NOV 

:: NSGLEN, (R0) + 

; twice 


. EITABL 

LC 

MOV 

MSG, (RO)+ 

; start address 

OBUFF: 

. ASCIZ 

/These are the voyages .. 

CLR 

(no) + 

; channel 9 * 2 to print 


. EVEN 


CLR 

(RO) + 

; block i to print 

BLOCK :: 

.ASCII 

<nul><nul> 

CLR 

(RO) + 

; wait time for input 

CHNIIL : : 

.ASCII 

<nul><nul> 

CLR 

( RO ) + 

; optional modifiers 

NSGLEN: 

:.ASCII 

<nul><nul> 

.'.’RITE 


; go do it 




.EXIT 


; hello runtime 

TEST: 

I10V 

SOBUFF, R5 ; 

.END PI 

11. NT 


LOOP: 

TSTB 

(R5) + 


As you can see. this program loads up the XRB with 
the information it needs, and goes and does its .WRITE, 
and then goes home. 


DUE 

SUB 

riov 

MOV 

JSR 

.EXIT 

.END 


LOOP 

IOCUFF+1, R5 
R5, MSGLEI1 
SOCUFF, R5 
R5, PRINT 

Test 


this program runs the PRINT 
subroutine once. 


globals follow 


data follows. 
,/CcrXlf > 


; reserve 2 bytes of 


main program follows 

move start address into register 

is the byte nul? (end of message) 

no, try next byte. 

get message length 

move into message length 

put start address back 

do the write 

say good-bye 

end of source, program. 


0 


5.2 PRINT Routine — Version 2. 

What might we reasonably want this PRINT routine 
to do? First, we should want to re-use it, so it has to go 
into subroutine form. Second, everything in version 1 is 
specified too exactly — we have to operate on channel 0. 
and print block 0. and make it whatever is in OBUFF, etc. 
So the second program should access memory locations 
which contain all this information. We could, of course, 
have it access registers, but if we wrote all our 
subroutines with such gay abandon, we would never be 
satisfied with a paltry 8 registers at all. A re-write of 
version 1 might well look like this: 

; PETMT subroutine, emulates BASIC+ 

; PM:i? statement. 

; parameters: 

; rsOLE!'-contain:; length of buffer 

; to move. 

; CNNNL - channel * 2 to print to. 

; BLOC:: -block ff to print to. 

; R5 -contains start ack.ress 

; of output buffer. 


To assemble and run this you would command 

macro print, print = print 
macro test, test = common, test 
tkb test, test = test, print 
run test 

[Note: COMMON.MAC can be found on the SYSGEN tape.] 
5.4 Creating a File. 

This last example shows a subroutine which creates 
a file. There are a few new ideas and instructions used, 
but everything is pretty straightforward: 

1. Macro procedures — it becomes repetitive to 
write a similar piece of code several times, so 
macro procedures are employed. When the 
assembler finds a statement calling a macro 
procedure, it insets the procedure code in place 
of the call, and replaces the dummy variables in 
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DBL 

for 

RSTS 

DBL is a DEC DIBOL-11 source code compatible language and compiler, with 
structured extensions, available from DISC for RT-11, RSTS and RSX-11M operating 
systems. DBL runs under the RT-11 runtime under RSTS, and uses the normal RT-11 
linker to link DBL programs. Because DBL object modules are compatible between 
RT-11 and RSTS, it is possible to do program development under RSTS and run 
the same programs under RT-11. 

Some of the features offered with DBL under RSTS: 

• Structured Programming Extentions 

• A more powerful and sophisticated debug facility which requires no 
special linking of a “debug” module 

• Better ISAM support — file reorganizations are seldom necessary 

• Intra-job and Inter-job message communication 

• Easy interfacing with assembly-level subroutines and chaining to 
assembly-language programs 

Discounts are provided to OEM’s along the following discount structure: 

Quantity 1 $4,200.00 11 -25 $2,520.00 

2-10 $2,940.00 26 + $2,100.00 

Prices effective February 1, 1981 

For more information about DBL under RT-11, RSTS or RSX-11M, 
or any of DISC’S program development tools, call or write: 

DISC 

Digital Information Systems Corporation 

6247 Fair Oaks Blvd. 
dec, dibol- 11 , RT-ii, rsts & Rsx-nM Carmichael, CA 95608 

are registered trademarks of Digital /n-td\ AQCZ AQACl DBL and DISC are registered trademarks of 

Equipment Corporation. (y lO) 4oO"4o4y Digital Information Systems Corporation. 
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the definition with the passed parameters in the 
call. Dummy variables preceded by a question 
mark have special meaning: if the parameter is 
not supplied, they become a unique local symbol 
between 64$ and 127$. 

2. .PSECT — this instruction controls linking. In 
this case it is used to tell TKB that this piece of 
code is pure instructions. 

3. The stack — to use registers freely inside a 
subroutine, without destroying their previous 
contents, they are stored by "pushing” them 
onto the stack. At the end of the procedure, they 
are " popped” off, returning to them the values 
they held upon entry into the procedure. 

4. Local symbols — these are of the form 
<number>$. They are local to the .PSECT of 
code they appear in, and insure that separately 
assembled pieces of code do not conflict. 

To open a file for output, you have to load up the 
firqb with the file name in RAD50 format, plus info like 
the disk and ppn, mode, filesize, etc. This is done by 
making the file string scan call. It automatically sets up 
most of the information to do the open. The code looks 
like this: 

.title create a file (if possible) 

.ident /002trc/ 

; This module is a subroutine to creat a file. It is called by 

; JSR pc, create 

; It e:-:pects to see the address of the file name in rO and the channel 



to open 

in rl. It returns errors 

in location FIRon. 




; nacro definitions 


.macro 

clear loc, len, regl, 

reg2, ?a; clear len bytes of nenory 


r.ov 

?loc, regl 

; starting at loc. 


MOV 

i'lcn, recj2 


a: 

cl r 

(reel)+ 



so!} 

reg?., a 



.endn 

clear 

; end of nacro 


.psect 

create, i 

; these arc instructions only 

create: 

nov 

rf, -<=“> 

; save registers 


: ov 

rl, -(•-; ) 



i. ov 

r.icv 

r2, 
r3 , 



cl cor 

iirc b, 40/?, r?, r3 

; clear FIRM'D and SET. 


clear 

:;r^, ?.0/?, r2, r3 



r.ov 

rC, xrb+xrloc 

; file nano start location 


cl r 

r2 

; find 1 engtii of file name 

IS: 

tstb 

(rC) + 

; is this byte 0? 


bee 

2S 

; If so, drop out 


ineb 

r2 

; else add 1 to the length 


br 

IS 

; and try on the next byte 

2 $: 

r ov 

r2, xrb+xrlen 

; nove in length 


nov 

r2, xrb+:;rbc 

; twice 


. f ss 


; and see if name is legal 


tetb 

firqb 

; test for a returned error 


bne 

3$ 

; and cut out if you find one 


clear 

xrb, 20/2, r2, r3 

; the xrb got dirty 


novb 

ferefe, firqb+frfun 

; nove in create flag 


ash 

#1, rl 

; multiply channel 5 by 2 


nov 

rl, firqb+fcfil 

; and move it in 


calfip 


; try to create the file 

3$: 

nov 

(sp)+, r3 

; restore registers 


nov 

(sp)+, r2 



r.ov 

(sp)+, rl 



r.ov 

(sp)+, rO 



rts 

pc 

; and go hone 


.end 

create 

; end of text 


What is going on is really pretty simple. We save the t 
registers, find the length of the file name string, set up 


the xrb, and see if the name is legal. If it is, we set up the 
firqb and open the file. The only thing which should 
seem strange is the ASH instruction. It stands for 
Arithmetic SHift. This one means shift all the bits in rl 
left by 1. Bit 15 goes into the C bit. As the procedure 
dies, it restores the values of the registers it changed to 
their original contents. The calling program decides if 
the file was actually created by testing location FIRQB. 


5.5 Last comments. People tend to show off what they 
know (after all, why else write articles?). In the case of 
assembly language programming, DON'T DO IT! There 
are only a few times you will really need to program 
something in MACRO-11: some i/o, or a piece of code 
that has to be really fast or small. Remember that the 
cost for this is that development time will skyrocket, 
and the resulting code will be difficult to maintain—so 
don’t plan on writing an accounts receivable package in 
assembly language, for you will still be at it when the 
company folds. 

A final note on tools: there is a very good debugging 
tool called ODT. It allows you to establish breakpoints in 
your code, look at memory locations, change them and 
continue onward. Many people also do the same sorts of 
things from a higher level language, like Pascal or BASIC 
Plus 2. I think which approach you use is mostly a mat¬ 
ter of temperment, but that before too long, you’ll find 
you will need some tool to work with. 


Appendix A 
COMMON.MAC 

; COfKIOr-THIS FILE CONTAINS THE 

; DEFINITIONS TO DO RSTS/E VERSION 7 
; r-OI.ITOn CALLS 

.title coni ion p.sts cannon definitions 

.IDENT /V07.01/ 

. PACE 

; ASCII CHARACTER DEFINITIONS 

NUL. ==000 

SOU == 001 

STX ==002 

CTX == 003 

EOT == 004 

ENO == 005 

ACK == 00C 

EEL == 007 

ns == oio 

HT == Oil 

I.F == 012 

VT == 013 

FF == C14 

CF. == 015 

50 == 016 

51 == 017 

DLL == 020 

DC1 == 021 

DC2 == 022 

DC3 == 023 

DC4 == 024 

I7AK == 025 

SYN == 026 

ETB == 027 

CAN ==030 

BN == 031 

Sim == 032 

ESC == 033 

FS == 034 

GS == 035 

RS == 036 

US == 037 

SPACE == 040 

uli::e == 137 

ACRAVE == 140 

LC.A == 141 

LC.3 == 142 

LC.C == 143 

LC.D == 144 
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LC.C 

== 145 


r.c.F 

== 146 


LC.G 

== 147 


LC.I? 

== 150 


LC.I 

== 151 


LC. J 

== 152 


LC. I' 

== 153 


LC.L 

== 154 


LC.I' 

== 155 


I.C.II 

== 156 


LC.O 

== 157 


LC. P 

== 160 


lc.c 

== 161 


lc.t 

== 162 


LC.S 

== 163 


LC.T 

== 16 4 


LC. U 

== 165 


LC. V 

== 166 


LC . 17 

== 167 


LC. X 

== 170 


LC. Y 

== 171 


TiC. 7 

== 172 


LR.RACE 

== 173 


VERBAR 

== 17 4 


nr pace 

== 175 


TILDE 

== 176 


DEL 

== 177 


.PAGE 


CHANNEL DEFIIIITIOnS 

CHWIO 

== C ; 

CHANNEL 40. 

CIIAN1 

== 2 ; 

CHANNEL SI. 

CHAN?. 

= - 4 ; 

CHANNEL S2 

CHAU? 

== 6 

CIIA! IE EL S3 

CHAI74 

== 10 

CHANNEL S4 

CHANS 

== 12 

CHANNEL S5 

CHAT 16 

== 14 

CHANNEL SC 

CIIAM7 

== 16 

CHAUEEL 87 

ciiAiir 

== 20 

CHAIIIIEL 58 

CHAM9 

== 22 ; 

CHAIPIEL 59 

CRANIO 

==24 ; 

CHAIIIIEL S10 

CHAII11 

== 26 

CHAIIIIEL 511 

CIIAU12 

== 30 

CHANNEL 512 

Cl! A!: 1 3 

==32 ; 

CHAIIIIEL 813 

CHAM14 

==3 4 ; 

CHAIIIIEL 514 

CHAN15 

== 36 

CHAIIIIEL 515 

.PAGE 


TRANSFER CONTROL LLOCH DEFIIIITIOIIS 

(xnr.). 

krlsm 

== 0 

LEIItiTi: or I/C DUFFER III DYTEC 

XRRC 

=- 2 

BYTE COHIIT FOP TRANSFER 

XRLOC 

== 4 

POINTER TO START Or I/C DUFFER 

xp.ci 

== 6 

channnei. * 2 for access 

::rir»Lxr; 

== 7 

RA.NDOM ACCESS DLOCE NUMBER (HSR) 

xppl:: 

== 10 

random access flock number (led) 

mrvime 

== 12 

WAIT TILL FOR TEP.IIIIIAL IIIPUT 

nr> 

== 14 

DEVICE LODITIERS 

NRNSIZ 

== 15 

SIZE OP IIP.!’ Ill EYTSS 

.PAGE 


FILE REOUEST QUEUE ELOCH DEFIMITIOI1S 
(FIROD) 

FQJCB 

== 2 

JOD HUMBER * 2 

FQFUN 

== 3 

Fipyuuo FUMCTIOM REQUESTED 

FOERNO 

== 4 

ERROR MESSAGE CODE AND TEXT DEGIN 

FOFIL 

= = 4 

CHANNEL # * 2 

Fosizri 

== 5 

FILE SIZE IN CLOCKS (MSB). 

FOPPH 

== 6 

PPM OF USER ISSUING REQUEST 

FQIIAM1 

== 10 i 

; 2 WORD FILE NAME IN RADIX-50 FORMAT. 

FOEXT 

==14 

; FILE MAME EXTENSION IN RADIX-50. 

FQSIZ 

== 16 

; FILE SIZE IN BLOCKS (LSB). 

FQNAM2 

== 20 

3 WORD NEW FILENAME AND EXTENSION 

IN RADIX-50 FORMAT. 

FODUFL 

== 20 

DEFAULT BUFFER LENGTH. 

FQMODE 

== 22 

MODE INDICATOR. 

FQFLAC 

== 24 

LOW BYTE — OPENNED FILE'S FLAG WORD 
AS RETURNED. 

FQPROT 

== 27 

NEW PROTECTION CODE 

fqdev 

== 30 

2 BYTE DEVICE NAME IN ASCII 

FQDEVM 

== 32 

LOW BYTE - DEVICE UNIT NUMBER. 

HIGH BYTE — DEVICE UNIT NUMBER FLAG. 

FOCLUS 

== 34 

FILE CLUSTER SIZE FOR FILE CREATIONS. 

FQNENT 

== 36 

NUMBER OF ENTRIES ON DIRECTORY LOOKUP 
OR ENTRY PARAMETER. 

FOBSIZ 

== 40 

; SIZE OF FIRQB IN BYTES. 

.PAGE 


; MONITOR CALLS (EMT'S) 

CALFIP 

== 104000 

; CALL FIP 

.READ 

== 104002 

; READ FROM A DEVICE 

.WRITE 

== 104004 

; WRITE TO A DEVICE 

.CORE 

== 104006 

; CHANGE JOB IMAGE SIZE 

.SLEEP 

== 104010 

; SUSPEND A JOB 

.PEEK 

== 104012 

; PEEK AT MONITOR MEMORY 

.SPEC 

== 104014 

; DO DEVICE SPECIAL FUNCTION 

.TTAPE 

== 104016 

; ENABLE TAPE MODE 

.TTECH 

== 104020 

; ENABLE ECHO 

.TTMCH 

== 104022 

; DISABLE ECHO 


. TTDDT 

== 

104024 j 

; DISABLE FULL LINE BUFFERING(ODT MODE) 

.TTRST 

== 

104026 j 

: CANCEL O EFFECT. 

.TIME 

== 

104030 i 

; RETURN JOB TIMING INFORMATION 

.POSTN 

== 

104032 ; 

: RETURN DEVICE HORIZONTAL POSITION 

.DATE 

== 

104034 ; 

i GET CURRENT DATE, TIME, JOB INFO 

.SET 

■“ 

104036 ; 

; SET KEY WORD BITS 

.STAT 

BB 

104040 ; 

! RETURN JOB STATISTIOCS 

.RUM 

«* 

104042 j 

: RUN A PROGRAM 

. NAME 

== 

104044 ; 

: CHANGE PROGRAM NAME 

.EXIT 

-- 

104046 ; 

' EXIT TO SYSTEM DEFAULT RTS. 

.RTS 


104050 j 

’ CHANGE TO A NEW RTS. 

.ERLOG 

== 

104052 ; 

LOG AN ERROR FROM THE RTS. 

.LOGS 

== 

104054 ; 

CHECK FOR LOGICAL DEVICE NAME 

.CLEAR 

=* 

104056 ; 

' CLEAR BITS IN KEY WORD 

.MESAG 

BB 

104060 ; 

MESSAGE SEIID/RECEIVE 

. CCL 

== 

104062 ; 

CHECK FOR AMD EXECUTE A CCL COMMAND 

. FSS 

== 

104064 ; 

TERMINATING FILE NAME STRING SCANNER 

.UUO 

■■ 

104066 ; 

UUO HOOK 

.CHAIN 

== 

104070 ; 

CHAIN TO A NEW PROGRAM 

.PAGE 







FIP FUNCTION CALLS 

CLSFO 

== 

0 

CLOSE A CHANNEL 

OPKFO 

== 

2 

OPEN AN EXISTING FILE ON A CHANNEL 

CREFO 

== 

4 

CREATE A FILE 

DLMFO 

■■ 

6 

DELETE A FILE 

REI1FO 

== 

10 j 

: RENAME A FILE ON DISK OR DECTAPE. 

DIRFO 

== 

12 ; 

: RETURN DIRECTORY INFORMATION. 

UUOFO 

== 

14 ■ 

' PROCESS UUO. 

ERRFO 

== 

16 ; 

' RETURN ERROR MESSAGE TEXT 

RSTFO 

== 

20 ; 

‘ RESET CHANNEL (S). 

IOKFO 

== 

22 ; 

: LOOKUP A FILF 

ASSFO 

== 

24 ; 

■ ASSIGN A DEVICE 

DEAFQ 

== 

26 ; 

DEASSIGN A DEVICE 

DALFO 

— = 

30 ; 

DEASSIGN ALL DEVICES 

CRTFO 

== 

32 ; 

CREATE A TEMPORARY FILE 

cr.nro 

■■ 

34 ; 

CREATE A COMPILED FILE 


. ?r c" 


.utio/uuoro subfuncviom cs. dcpi.-ild 


UU.ATR 

== 

177747 

READ/WRITE ATTRIBUTES DEFINED 

UU.CCL 

= _ 

177758 

ADD/DELETE CCL COMNAND 

UU. LOG 

== 

177755 

SET NUMBER OF ALLOWED LOGINS 

UU.RTS 

= = 

177756 

RUM-TIME SYSTEM CONTROL 

UU.NAM 

== 

177757 

SET FILE'S RTS NAME 

UU.DIE 

-- 

177760 

SPECIAL SHUTUP LOGOUT 

UU.ACT 

8S 

177761 

ACCOUNTING INFORMATION DUMP 

UU.DAT 

= = 

177762 

DATE/TIMF. CHANGER 

UU.PRI 

SB 

177763 

PRIORITY, RUN BURST, JOB MAX CHANGER 

UU.TB2 

SB 

177764 

GET MONITOR TABLES, PART II 

UU.BCK 

= = 

177765 

CHANGE FILE BACKUP STATISTICS 

UU. HNG 

= = 

177767 

HANGUP/ENABLE A DATASET 

UU.FCB 

— — 

177770 J 

: PETURN FCC/DDB INFORMATION 

UU.POK 

= = 

177772 1 

: POKE MONITOR MEMORY 

UU.TCI 

SB 

177775 ; 

: GET MONITOR TABLES, PART I 

UU. t!LG 

= = 

177776 j 

[ SET NUMBER OF ALLOWED LOGINS TO 1. 

UU.YLG 


nnn i 

1 SET NUMBER OF ALLOWED LOGINS TO MAX 

UU.PAS 


000000 

CREATE AM ACCOUNT 

UU.DLU 

= = 

000001 

DELETE AN ACCOUNT 

UU.CLN 

BS 

000002 

CLEAN A DISK PACK 

UU.MNT 

SB 

000003 

HOUUT/DISMOUNT A DISK PACK 

UU.LIN 

SB 

000004 

LOGIN 

UU.BYE 

BS 

000005 

LOGOUT 

UU.ATT 

= = 

000006 

ATTACH 

UU.DET 

= = 

000007 

DETACH 

UU.CHU 

= = 

000010 

CHANGE PASSWORD/OUOTA 

UU . ERR 

SB 

000011 

GET ERROR MESSAGE TEXT 

UU.ASS 

SB 

000012 

ASSIGN A DEVICE 

UU.DEA 

SB 

000013 

DEASSIGN A DEVICE 

UU.DAL 

BS 

000014 

DEASSIGM ALL DEVICES 

IJU.ZER 

SB 

000015 

ZERO A DEVICE 

UU . RAD 

SB 

000016 

READ ACCOUNTING INFORMATION 

UU.DIR 

= = 

000017 

RETURN DIRECTORY INFORMATION 

UU.TRM 

__ 

000020 

SET TERMINAL CHARACTERISTICS 

UU . I OK 

BB 

000021 

WILDCARD DIRECTORY LOOKUP 

UU.CHE 

BS 

000023 

ENABLE DISABLE CACHE 

UU.CNV 

SB 

000024 

CONVERT DATE/TIf'C TO ASCII 

UU.SLN 

BS 

000025 

SET/CLEAF. SYSTEM WIDE LOGICAL NAMES 

UU.SWP 

= = 

000027 

ADD/REMOVE SWAP, OVERLY OR ERROR 
MESSAGE FILES 

UU . JOB 

.PAGE 


000030 

; JOB CREATION 


MONITOR LON MEMORY AREA DEFINED 


DATE 

== 

1000 

CURRENT 

DATE IN INTERNAL FORM 

TIME 

== 

1002 

CURRENT 

TIME IN INTERNAL FORM 

TIMSEC 

= = 

1004 

SECONDS 

TO NEXT MINUTE 

TIMCLK 

== 

1005 

TICKS TO NEXT SECOND 

JOB 

== 

1006 

JOD CURRENTLY RUNNING 

NEXT 

**= 

1007 

NEXT JOB TO RUN 

JOBDA 

== 

1010 < 

; POINTER 

TO CURRENT JOB DATA BLOCK 

JOBF 

== 

1012 ; 

t POINTER 

TO CURRENT FLAGS 

IOSTS 

BB 

1014 ; 

f POINTER 

TO CURRENT I/O STATUS 

JOBWRK 

BB 

1016 ; 

; POINTER. 

TO JOB'S WORK BLOCK 

JOBJD2 

= = 

1020 j 

: POINTER 

TO JOB'S 2ND JOB DATA BLOCK 

JOBRTS 

= “ 

1022 j 

: POINTER 

TO JOB'S RTS BLOCK 

CPUTIM 

* = 

1024 ; 

: POINTER 

TO CURRENT CPU TIME BUCKET 


. PAGE 
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CLASSIFIE 


D Send Classified Ads to: RSTS Classified. P.O. Box 361. Fort Washing¬ 
ton. PA 19034. S 1.00 per word, first 12 words free with one year’s 
subscription.) 


We need space and time! Need 1170 
RSTS time and office space in Southern 
California evening and weekend use! 
Will pay % of your lease costs. Call 
Allen (213) 394-3857. 


RSTS/E BASIC-i-, DIBOL Programmers 
call or send resume to Scientific Place¬ 
ment, Inc., P.O. Box 19949, Houston, TX 
77024; (713) 496-6100. 


MEDIA TRANSFER SERVICES - We can 
transfer your data between any of the 
following media: RK05, RK06, RK07, 
RX01, and 800 BPI 9 Track MT. We han¬ 
dle most DIGITAL directory structures 
on a fast turn around basis and also of¬ 
fer programming services for any 
special transfer problems you may have. 
Call (201) 584-4026 Advanced Digital 
Data, 354 Route 206, Flanders, New 
Jersey 07836. Authorized DIGITAL 
DISTRIBUTOR. 


FORTRAN Software Design and im¬ 
plementation at reasonable cost. RSTS, 
RT-11, and RSX are our specialty. 
Golden Triangle Computers, Box 1866, 
Orange, TX 77630, (713) 883-4588. 


OOUBLE YOUR LA36 
DECWRITER S SPEEO TO 60 CPS 


The ACCELEWRITER converter enables you 
to convert the LA36 Decwriter from 10/15/30 
to 10/30/60 CPS. 

Utilizes Decwriter's own built-in 60 CPS 
speed 

Plugs into logic board 
Compatible with Decwriter option boards 
Decwriter reconverts to “stock’’ in 
seconds 
Thousands sold 
In use for over 3 years 
Full one-year warranty 
$115 includes shipping 

Brochure sent promptly at your request 
Write or call us. 


LARKS ELECTRONICS & DATA 

P.O. Box 22. Skokie. IL 60077 
(312) 677-6080 



11 Blue 7 DEC LSI-11 Transduction, 
1645-11 Sismet Road, Mississauga (416) 
625-1907. 


For competitive software needs write 
PAR, 417 Tulsiani, Nariman Point, Bom¬ 
bay, India. 


EDUCATORS: RSTS/E software needed. 
Contact Steve Dudley, Brunswick 
School, Greenwich, CT. 06830. 


RSTS INTERNALS, TUNING, RT11/RSX 
MACRO under RSTS consultation & pro¬ 
gramming — call MACRO MAN, Bob 
Meyer, (609) 298-9127. 


Now paying $5050 for used DEC RK07 
drives. Call Alvin at (714) 732-0782. 


H&R for electronics, 401 E. Erie Avenue, 
Philadelphia, PA 19134, request catalog. 


Australian DEC specialists. Call 
(02)4766820. 


Gary Oppenheimer-Consulting (9 years 
experience with RSTS & RSTS/E). N.Y.C. 
area (212) 787-2416. 


‘Art in RSTS/E’ — Optimization, 
Sysgens, and other RSTS/E consulting. 
Jeffrey R. Harrow (404) 294-1999. 


For Sale: Systems Industries Model 9500 
SMD Controller complete with cables, 
manual $3,500 30 day warranty. Con- 
solidted Funding Corporation, 2361 W. 
Devon, Elk Grove, IL 60007 (312) 
766-1400. 


Connect your office to the future with 
cableshare’s inter-office communication 
system. Electronic Mail, Word Process¬ 
ing, Electronic Filing, Message 
Switching, and more for RSTS users. 


DEC systems and components - buy and 
sell, Western Data Sales, Inc., 23520 
Telo St. #12, Torrance, CA 90503, (213) 
539-8917. 


Systems Analysis, Design and Program¬ 
ming. RSTS and many other systems. 
Phone QIC, (213) 506-8700. 


RSTS/E Medical Billing Programs, Pete 
Johnson (505) 255-3777. 


PDP-11 :RSX,RT, VAX:VMS Is there a VAX 
in your future? Do you need an APPLICA¬ 
TION MIGRATION EXPERT? Application 
and system consulting, analysis, design, 
configuration. Twenty years DEC/DP ex¬ 
perience. Give me your tough problems. 
Carl E. Friedber, PH.D., In House 
Systems, P.O. Box 1063, New York, NY 
10007 (212) 233-5470. 


RSTS/E freelance work in San Diego, call 
Gary (714) 263-7321. 


How-to COPYRIGHT SOFTWARE. $9.50 
to Sofprotex, Box 271-P, Belmont, CA 
94002. 


Protect your PDP11 from damage with 
Nassau Systems over temperature pro¬ 
tection unit, Box 19329, Cincinnati, OH 
45219. 


$200 RSTS/E* 

WORD PROCESSOR 
CBEDIT.BAS 

Single Basic-Plus* program with 
CRT input, window edit and file 
save. Add, locate, change, replace, 
delete, block move & copy, stan¬ 
dard paragraph append, etc. VT* 
series and Hazeltine terminal 
drivers. Others easy to add. 

Fully formatted output (margins, 
justify, center, underscore, 
headers, page numbers, etc.) to 
terminal, disk or line printer. Bi¬ 
directional driver for Diablo. We 
use it daily for all our secretarial 
work. 

9-Track $200 RK05$260 ppd 

T. F. Hudgins & Assoc., Inc. 
P.O. Box 10946 Houston TX77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 


3 11/34 MM11DP Core Boards, Craig 
(916) 666-1691. 


RSTS BASIC and BASIC-PLUS-II Pro¬ 
gramming Service Company. 


RSTS/E and BASIC-PLUS Programming 
Training Courses. Conducted at your 
site. Edge Data Corporation, 100 
Franklin Street, Boston, MA 02110 (617) 
451-1919. 


BT-100AA $1595.00, LA-34DA $1095.00, 
DataGuard Corporation (312) 985-4615. 


RSTS 

RESCUE 

SQUAD 

We salvage all kinds of disasters: 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
Disk Directory expert. 

CALL 24 HOURS 
215-542-7008 
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GENERAL 

ACCOUNTING 

MCBA applications A/P, G/L, 
P/R, A/P, INV including source. 
$ 750 each 

David Talbot 

Interstate Data Systems 

214 West Main 
Urbana, IL 61801 

(217) 337-1144 


FOR SALE: DH11-AE, DH11-AD, DEC 
Maintained. Terms: List less 5%. FOB 
Phila. Cash in advance. Call Dave 
Mallery, (215) 364-2800. 


MACRO SYSTAT 7.0 LARGE FIP 
Super Fast — almost no CPU, all stan¬ 
dard features + core & open file by job. 
Works with RSX or BP2 RTS’s. Nine 
track 800 or 1600 only. Send *40 00 cash, 
check or m/o. Bob Meyer, 9 Lockwood 
Ave., Fieldsboro, NJ 08505. 


HARDWARE & SOFTWARE DESIGN 
Mini — Micro 
RSTS, A Specialty 

Scott Banks, Systems Design, 1108 
Morefield Rd., Phila., PA 19115. (215) 
677-4836. 


Programmer wants job BASIC-PLUS, 
Boston, 20K, 6 MO/YR, Tom Pears (167) 
698-7800. 


DELAWARE 

VALLEY 

TIMESHARING 

Eastern Pennsylvania 
Philadelphia 
South Jersey 

DEC 11/70 RSTS/E 

24 hours - 7 days 
Most commerical packages 
Custom work , Raw time 

NATIONWIDE DATA DIALOG 

70 James Way 
Southampton, Pa. 18966 
215-364-2800 


DEC 

BUY 


FOR SALE 


SELL 

SYSTEMS 


OPTIONS 


MEDIA/CABLES* 

11/23 with 

RK711 EA 

VT100 A A 

BA11KE 

RL01K 

128KB 

RL01AK 

DZ11A 

FP11A 

RM02/03 

RL02 

RL211AK 

DUP11DA 

DM11 DC 


LA180 

RK05J 

DL11E 

DM1 IBB 

BC05C.D 

VT100 

DD11DK 

DL11WA 

DR11C 

BC03L.M 

CTS 300 

MS11JP 

DL11WB 

DB11A 

BC11A 

VAX 11/780 

MS11LB 

DLV11E 

H 96 OCA 

•DEC Comp. 


WESTERN DATA SALES. INC. 
(formerly Western Dele Systems) 
23520 Telo St. #12 Torrence. Ce. 90503 
213/539-8917 



The producers of the RSTS Professional 
are now using “telecomphotoset” - telephone 
communicated phototypesetting. 

This method is the latest in typesetting 
technology. We are now able to receive data 
directly from your computer or word processor 
to our phototypesetter. Once these keystrokes 
have been “captured”, we will mold your copy 
to your specifications, or to our design if you 
wish, and send to you camera ready mechani¬ 
cals or final printed material. 


\()IRM\I 

ANNUAL REPOKI BOOK NEWSLETTER. 

IS JUST A PHONE CALL AWAY! 
S.Al’f n.Mf A ND MOV# V < all or urite for further details: 

5041 frankford avenue. 2nd floor Philadelphia, pa 19124 • (215) 357-0782 





; 

J’.VTTL 

ss 

20 




; JOB UniCUE LO’.' KEKORY LAYOUT 

JUS71V 

“= 

26 




; 

JERKS'. 

== 

A? 

USERSP 

== 

400 

; DEFAULT STACK AREA 

JFF. I 

== 


KEY 

== 

400 

; KEY '.’ORE Or JOB'S CURRE!’T S"A m US 

JD“’ST 

== 

?.r» 

FI ROB 

== 

402 

; FILE REOUEST OUEL'F BLOCK 

jjsif: 

== 

A 6 

>:rb 

== 

442 

; TPARSFER PROUEST OUEUE BLOCK 

JF.TAP 

== 

37 

concuri 

== 

460 

; CORE COIUIOK 




usRrpr: 

== 

734 

; USER'S ASSIGNABLE PPI. 




UCRPRT 

aa 

736 

; USER'S ASSIGNABLE PROTECTION CODE 

JEFOST 

== 

SFCF'il 





JFJ O'”' 

== 

rnrorp 

USRI.OC 

== 

740 

; USER'S LOGICAL DEVICE TAEL:: 

SFCC 

== 

r.r "‘'’if 





JF’SC 

s- 

rrnr?F 

ITSTORG 

as 

100C 

; END Or LO!' ftEKORY TIXED LAYOUT 

.TTpr. 1 

=- 

A f r ’ A 4 S 





J FRO 

a: 

curios 
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J F” E 7*0 

= = 

rcr: r< r 

J03F 

= = 

1012 

; POUTER TO CURRENT FLAGS 

JFKA'.'K’ 

= = 

ror..' e 
couoo 

IO STS 

= = 

1014 

; poirrur. to curp.fet i/o status 



JOB’JRK 

= = 

1016 

; POUTER TO JOB'S I'OF.K BLOCK 

p "" ‘■ 

= = 

r.n/bs: 

JOBJD2 

= = 

1020 

; POUTER TO JOB'S 2FD JOB DATA BLOCK 

J.— ’O?’: 


r.iocn: 

CFfTOf. 

c.'Arnp 

icornr 

JOBRTS 

CPUTIM 


1022 

1024 

; POUNCE TO JOB'S RTS BLOCK 
; POI’TCF TO CURRENT CPU TIKE BUCKET 

JFLOCK 
jF“?cr 

__ 

. :v g r 



; 

; JO” UKinUE LOB’ KEKORY LAYOUT 

JFCA'KV 


001 




; 

JFPF.TY 

= = 

C02 





JERUK 

= = 

CC4 

USERS? 

aa 

400 

; DEFAULT STACK AREA 

j rr pf 

= = 

010 

KEY 

a a 

400 

; KEY B’Or.D Or JOB’S CURF.EKT STATUS 

JFfTAK 

= = 

020 

r iff" 

aa 

‘Op 

; FIL" B.EOUKST OUEUE BLOCK 

jrr.’pr 

= = 

04 P 


aa 

4 4 2 

; T'/BSPER REOUEST OUFUR ET.OCE 

jr:'iLF. 

■= = 

100 

core:' 

aa 

460 

; CORE COKKOK 

JFK I LI. 

= = 

2CP 

urn??:' 

= = 

734 

; USER'S ASriC T ’AFLi: PPK 
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USEPBT 


736 

; USEE'S ASSICr'AFLE PFOTRCTIOK CODE 



UFRIiOC 


7 4-C 

; USER'S LOGICAL DEVICE TABLE 




NSTOFC 

= = 

1000 

; FTP OF T.OB KEKOF.Y FIRED LAYOUT 

J2TICK 

= s 

c 





J2CPU 

sa 

2 
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J2COI! 

aa 

4 




; 

J2BCT 

= = 

6 




; JO- B. T.» ‘ LOCK. ‘1 DEFT’TD 







; (JF" ) 

; 

J2DCV 

a = 

10 




J2KCTK 

s = 

12 





J2CPUI1 

= = 

13 

.:r ic- 

=*= 

0 

; ?o::TB’ to tre I/O BLOCK (ICB) 

J2RAKE 

= = 

14 

porr/’ 

= = 

2 

; jo: FT/iTf'F FLAGS 




'zer 

= = 

4 

; I/O STATUS Or JOF 

J2DR7S 

= = 

20 

Y..'?,' 'FT 

= = 

c . 

; T r *KK FOR FIT PATTERf TC POST 

J2KP7R 

= = 

2? 

r.T *c:r:: 

= = 

r 

; ?r ’ BTLR TO TEE JOB WORK BLOCK (B’!’K) 

J2PPTR 

= = 

24 




J2PCMT 

= = 

26 

J PA PER 

= = 

1C 

; POI’.TER TO JOR DATA BLOCK " 2 




.'OF 7.0 2 

== 

l? 

; SOFT JO! STATUS FLAGS 

J2PPU 

= = 

30 

.. f'”~:*.' 

= “ 

13 

; KIBE FOE JOB TG BE KB.’S’ RESIDEUCY 

J2UFDR 

= = 

32 

j ?.:■ 

= = 

14. 

; so: • TO BUB'-TI. .1; SYSTEB BLOCK (FA’S) 





= = 

3 6 

; JOR'F .KBIEKKCY OUA-*”!!.: 

.PACE 




Jo"'w .kkory control ak::a 
jo’-.'., cit.fut si ? s . i:* 

ru-pr r its ve err or residency 
jut. ?::t c :i7Y 

JOPL P.’f’ BURST 

jgf's. riv.r: . fkoey kaki: u:: 
jon'r r.*AP para: late pk; 

jo- flag (jdflag) lit assignbknts 
ryjr :. •j nsnr?' top postito uro 

POST' ?T I/O STATES A.KH” '.’OP.D 
o ttoto user 
? es t*-'Pp:j user 

ro':ci to jon (ro i/o redo) 

pr-do tee i/o condition 

TEBPORAEY PRIVILEGES POSSIBLE 

eavk/bb.to:.:: asynckroncus ppp coutext 

jop. mas rr.r:.\!T:::7 privileges 

job las t:j: poraey privileges active 

JO’ IS "07 YOST Loccnn I” 

jo.’ c;.:: recked irs private kekoey lax 
jor. is not to rz snapped 
special ctoditic.k (check jnrLC2) 

jnrt,r2 Pi m assign: units if jfspcl 
p: eefpvz r::;: jop's context 

PARITY FAULT 

r.ur entry 

run-tike si: a? (load) error 

SP STACY OVERFLOT 

p’ap Conor non jor. 

KILL THIS JOB IN.NEADIATELY 
KILL THIS JOB AFTHF. CLEANUP 


JOE DATA BLOCK 52 (JDB2) DEFIKED 


; unfzp. of clock ticks unconverted 
cpu ti; :: collected fop job 
co:::.t.ct ti.:c collected foe job 
KCT COLLECTED foe job 

DEVICE TIDE COLLECTED FOR JOB 
KCT COLLECTED FOR JOB ClSB) 

CPU TIKE COLLECTED FOR JOB (ESP.) 

2 '.JOED JOB'S P FOG RAF: MADE IK RAD-50 

POINTER TO DEFAULT RTS FOR JOB 
POIKTEP. TO JOB'S FECEIVEF ID BLOCK 
LARGE DATA POSTING POIDTER 
LARGE DATA POSTIMG COURT 

JOB'S ppi: 

RETRIEVAL POUTER TO JOB'S SY: UFD 


f 






























page 94 March 1981 

RSTSPR0FESSI0NALRSTSPR0FESSI0NALJ*STCPR0FESSI0NALRSTSPR0FESSI0NALRSTSPR0FESSI0NAIJ*STSPR0FESSI0NALRST5P^ 


NEWS 

RELEASES 



Occasionally we are requested to pnnt news that may be of in 
terest to the RSTS community. We are happy to offer this feature 
to our readers We reserve the nght to pnnt only as time and 
space permit We cannot return photos or manuscripts. Send 
news releases to. RSTS NEWS RELEASE PO Box 361, Fort 
Washington, PA 19034. 


October 27, 1980 

QUODATA ANNOUNCES LOW COST PDP-11 
WORD PROCESSING/DATA MANAGEMENT 
SYSTEMS 

Hartford, Connecticut — QUODATA Corpora¬ 
tion announces its new series of low cost QW 
systems which provide simultaneous word 
processing and data management. The systems 
are built around the PDP-11 family of 
computers from Digital Equipment Corporation. 
Besides word processing, features include large 
file capacities, comprehensive report generation, 
and flexible sorting and selection capabilities. 

QW systems, says QUODATA spokesman, 
"embody a different concept than that employed 
by most of the giants. Unfortunately, they use 
the approach of overlaying data management 
on otherwise excellent word processing 
software. The result is that file sizes, sorting 
limitations, and other restrictions preclude 
proper data management.QUODATA, takes the 
reverse tack. We start with the most established 
and popular data processing timeshared 
operating system available on low cost 
computers: RSTS/E. Then we add the QWORD 
word processing software to the already proven 
QDMS data management system." 

Inexpensive Timesharing With Power 

At the low end, users can start with a system 
which costs as little as $39,900. The QW620 
consists of DEC's new, popular PDP—11/23 
with 192K bytes of memory, four port 
multiplexor, two disk drives with 20 megabytes 
of removable storage, VT100 video console, 
QDMS, QWORD, and RSTS/E software, DEC 
will install and maintain the hardware under a 
service contract. 

Users can obtain a processor as large as the 
new DEC PDP-11/44 or even the 11/70, 
capable of handling well over fifty users 
simultaneously. More than a billion bytes of 
disk storage can be added to these systems, as 
well as almost any combination of terminals, 
letter quality printers, and high speed draft or 
data processing printers. 

Word Processing and Data Management 
Simultaneously 

The QW series allows simultaneous use by a 
number of people for both word processing and 
data management. On the one hand, you can 
prepare single documents or mass mailings. On 
the other hand, you can perform data 
processing functions such as interactively 
update files and access data, sort and select, run 
application programs or generate instant 
reports. 

The list processing option is an example of 
one function that combines both word and data 
management. It allows you to produce the same 
kind of output over and over again — a letter, 
standardized form, row in a table such as 
telephone directory; even with certain data 
varying from one piece of output to the other. 
Specific data may be taken from records in the 
data base and merged into the document which 
is then reproduced a number of times. "Fields" 
within the finished documents will contain data 
taken from individual records within the data 
base. 


The QWORD software is ‘menu driven' and 
therefore very versatile. Users can add, delete, 
transpose or duplicate text. Words, sentences, 
paragraphs, pages or even entire documents 
can be manipulated easily. Special color-coded 
keys exist to facilitate such tasks as setting 
margins and tabs, centering, and deleting or 
transposing parts of documents. QWORD is 
functionally similar to DEC's WPS/8 word 
processing system for the PDP8. 

In addition to color-coded keys, the system 
prompts the operator to provide next-step 
choices as well as error messages. The system 
can also store commonly used abbreviations 
and paragraphs. Stored text saves time and 
reduces error by allowing insertion of 
commonly used phrases, company or product 
names, paragraphs or other information by 
simply using a few key strokes. 

Instant Reports 

Reporting is a strong suit. Two variations of 
the report writer exist. One is called PDQ, which 
permits non-technical staff to generate instant 
reports under computer guidance. A more 
sophisticated variation of the report writer can 
handle virtually any format desired. Control 
breaks, extensive calculations, subtotals and 
many other features are standard. Sort and 
selection options are easy to use. More than a 
million records may be sorted, and over 200 
levels of selection critera exist. 

Proven Components Integrated 

The PDP11 is the world's most popular 
minicomputer family. RSTS/E is recognized as 
the easiest to use and most popular interactive 
timesharing system available on a mini¬ 
computer. It is versatile, sophisticated, and 
proven operating software, boasting some 
20,000 installations. RSTS/E supports con¬ 
current, interactive and batch processing, 
BASIC-plus, BASIC-plus II, COBOL, FORTRAN, 
PASCAL, APL, RPGII, PL/I, assembler and more 
programming languages. This same RSTS/E 
can run on 11/23, 11/34, 11/44, 11/60 and 
11/70 computers with as many as 63 
independent user jobs and connections to 127 
terminals. QUODATA, not DEC, supports 
RSTS/E on the 11/23. 

The QDMS Data Management Systems has 
received high marks from users for its exentsive 
report generation facilities, and ease of use by 
non-technical personnel. Users can build data 
files quickly, and obtain reports from several 
files simultaneously. QDMS saves programming 
time and lets even first-time users create and 
run reports themselves. 

Additional inquiries should be addressed to 
Barbara Westley, Marketing. 


February 6, 1981 

RABBIT-2 PERFORMANCE ANALYSIS FOR 
VAX/VMS AND RSTS/E USERS 
RELEASE 2.0 

West Palm Beach, Florida — RAXCO Inc. 
announces Release 2.0 of RABBIT-2, a computer 
performance analysis system for VAX/VMS and 
RSTS/E environments. 

New features, enhancements, and options 
increase system efficiencies, extend capabilities 
and add new analytical techniques under the 
new release. 

New commands include PROFILE, which 
will quickly provide a statistical analysis of user 
resource demand; RATIO displays resource 
consumption per connect hour or per second; 
RANK will list users in order of demand; WHO 
will provide user lists for relevant time period; 
HELP will list over 30 commands and 
associated formats. 

One new option available under RSTS is the 
ability to determine the percentage of time users 
spend in various states, such as RUN, SLEEP, 
TERMINAL INPUT/OUTPUT etc. 

Another option for both VMS and RSTS is 
program efficiency analysis whereby individual 
program statistics are generated. The program is 
identified, and frequency plus quantity of usage 
are developed. 


RABBIT-2 is a command driven analytical 
tool for investigating computer resource 
demand, bottlenecks, and throughput over 
specified time periods. The system data may be 
viewed in the aggregate or split into batch, 
interactive and detatched segments for analysis. 

RABBIT-2 is priced from $99/month rental 
or $2495 permanent license and is available 
through RAXCO and Distributors in the U.S., 

U K. and Canada 

RAXCO provides a wide range of 
operational software for DEC computers ranging 
from JOB ACCOUNTING, RESOURCE AUDIT¬ 
ING AND BILUNG, FILE SECURITY, DATA 
MANAGEMENT and FINANCIAL PLANNING. 

For more information contact: RAXCO Inc., 
3336 N. Flagler Drive, West Palm Beach, 

Florida 33407, U.S.A. Phone: (305) 842-2115 


February 1981 

FINAR INTRODUCES “FINESS" HIGH-SPEED 
FINANCIAL MODEUNG SOFTWARE FOR 
PDP-11 

Denver, Co. — Mr. Tony Kobine, Marketing 
Director at Finar Systems, Ltd. announced the 
availability of a new, high-speed version of the 
successful FINAR, Financial Analysis and 
Reporting language, for the DEC PDP-11. 

Called FINESS - “FINAR Extra Speed", this 
new version takes advantage of the overlay 
features of Basic-Plus-2. The result is a product 
that runs several times faster than the Basic-Plus 
version, and has the same appearance to both 
the user and the internal file structures. 

FINESS will provide financial managers and 
planners with the same easy-to-use modeling 
system as FINAR for budgeting, forecasting, 
consolidation, investment evaluation and similar 
activities, at higher speeds — especially 
important when analyzing "what if?" 
alternatives. 

Prices for FINAR start at $18,000. For 
further information call or write: Tony Kobine, 
Finar Systems, Ltd., 6000 E. Evans, Suite 2-300, 
Denver, CO 80222 (303) 758-7561. 


February 1981 

FINAR - FINANCIAL ANALYSIS AND 
REPORTING SOFTWARE IS NOW AVAILABLE 
FOR DEC VAX-11 

Denver, CO. — Mr. Tony Kobine, Marketing 
Director at Finar Systems Ltd. announced the 
availability of FINAR on the DEC VAX-11, 
running in “native-mode" under VMS. 

FINAR, the Financial Analysis and 
Reporting system has been available for four 
years on the PDP-11, and has provided 
managers and planners with an easy-to-use 
modeling system for budgeting, forecasting, 
consolidation, investment evaluation and similar 
activities. 

“The VAX version of FINAR is a powerful 
addition to the software," said Mr. Kobine. “It 
will enable users of this system to carry out 
high-quality, high-speed modeling — especially 
important when evaluating alternatives in ‘What 
if 7 analysis." 

Current FINAR users who follow the natural 
migration from PDP-11 to VAX can continue 
with no external change in function, and a 
simple transfer of data and program files. 

Prices for FINAR start at $18,000. For 
further information, call or write: Tony Kobine, 
Finar Systems, Ltd., 6000 E. Evans, Suite 2-300, 
Denver, CO. 80222, (303) 758-7561. 


January 30, 1981 

COSAP STATISTICAL PACKAGE FROM 
LAWRENCE UNIVERSITY 

Appleton, Wisconsin — Lawrence University has 
announced Version 2B of COSAP, a Conversa¬ 
tionally Oriented Statistical Analysis Package 
for RSTS/E. 

Version 2B of COSAP brings RSTS/E users 
a coherent and varsatile set of routines featur¬ 
ing: convenient terminal data entry; flexible 
commands for editing or transforming data; 
many types of analysis for discrete and continu- 
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ous data; a powerful select mode; a uniform 
data format; a conversational environment- 
ample capacity (up to 32767 observations on 
up to 4095 double-precision variables or 8191 
single-precision variables); only 8 KW of 
memory per user. 

The licensed package consists of the BASIC- 
PLUS source code for all modules, internal table 
files, and test data files. Printed documentation 
includes detailed instructions for installation, 
codebooks for test data files, and the compre¬ 
hensive User's Guide to COSAP. 

Although Version 2B is a proprietary 
licensed product, a spokesperson from Lawrence 
noted that the 1973 version of COSAP would 
remain in the DECUS program library because 
it has reputedly been one of the most frequently 
requested items in the entire library. 

The software product announcement for 
COSAP Version 2B may be requested from: 
Computer Center Publications, Lawrence Uni¬ 
versity, Box 599, Appleton, Wisconsin, 54912. 
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LETTERS to the RSTS Pro... 

... continued from page 6 

Here's what our new photo contests inspired. 
(RSTS Professional, Vol. 2, U4, p. 83, Dave 
Mallery, '"Best Caption"; p. 91, Willi am Shakes- 
pere at Stratford upon A von. The question con¬ 
cerning Stonehenge, (Salisbury Plain, Wiltshire, 
England), p. 19, was not intended as a contest, 
but simply a rhetorical statement. However, 
because we received a few comments we decided 
to include the photo as part of this months 
feature.) 

Dear Dave and Carl, 

I’d like to enter the following caption in your 
contest. 

“You mean I can’t play DUNGEON on a 
VAX?!!” 

I enjoy you magazine very much and look 
forward to the next issue. 

Sincerely, Ronald Charbonneau 
Pittsfield School District 
Pittsfield, MA 

Dear RSTS Protessional: 

It’s anyone’s guess as to what Dave Mallery 
was thinking or about to say in the picture, but 
he certainly looks surprised to me. 

After San Diego, I would offer a caption of 
either: 

“You’re running 63 jobs with 96 ports on an 
11/70 under Version 7.0 and NO SMALL 
BUFFER problems!! Come on!!!” 

OR 

“Did you just say that you know how to solve the 
SMALL BUFFER problem once and forall???” 

I really enjoy reading your magazine and anx¬ 
iously await its arrival. I think that many of the 
articles contain information that is useful to 
many people at all levels. I wish that we could see 
the RSTS Professional distributed more often. 

Very truly yours, 
Arnold V. Fish, President 
Integrated Computer Systems, Inc. 

“Oh-h-h-h No-o-o-o! I don’t speak his language.” 

Ed Hamaker 
Amos Press Inc., Sidney, OH 

Carl & Dave 

Concerning your photo caption contest, how 
about— 

“You mean someone has solved the small buffer 
problem?!!!!”. 

I’m still working on the last issue’s TECO 
problem. A few months ago I was driving East 
on 1-70 just out of Columbus with my wife and 
saw a similar truck. I said “Hey, TECO!” and my 
wife just stared at me and said “Huh?”. Some 
people just don’t understand. 

I really enjoyed your show at San Diego, but I 
thought you had said that your long awaited 
“How to build a well structured disk” article was 
to appear in the December issue. I guess things 
get a bit blurry after midnight. 

Bob Ainsley 
National Revenue Corp. 

Columbus, OH 

Blurried and Hurried, Boh. See "Disk Struc¬ 
ture Notes", this issue. 

Dear RSTS Professional: 

Below is a caption I feel suitable: 

“Small Buffers?? — Oh, I’ve got 2 of those.” 

Sincerely, Kim Branch 
Daniel International Corp. 


Gentlemen: 

Your current photo (p. 19) is of Stonehenge. 
Many believe that this is indeed a computer, 
used to calculate astronomical data such as the 
date of the equinox which was of great impor¬ 
tance to prehistoric farmers and hunters. I 
expect it was reliable, or at least minimal 
downtime! 

Everyone involved with timesharing at our 
installation really enjoys your magazine; keep up 
the good work. 

Donald E. East 
First International Services Corp. 

Dear RSTS Pro: 

In reference to the photo contest (p. 19), Some 
people think that it was a start. Actually the 
object in the photo is called a Dolmen. A group 
of these placed in a circle is called a Cromlech. 
The most famous Cromlech is Stonehedge. It is 
believed to have been built around 2000 B.C. and 
seems to have been a kind of astronomical 
observatory. How’s that!!!!!!! 

Sincerely, Joseph M. Nyikos 
Union-Tribune Publishing Co. 
THAT was just great!!!!!!! 

Here's someone who has included a little some¬ 
thing for everyone. 

Gentlemen . . . 

Page 19 - Yes. Stonehenge. 

Page 83 - “Hey you guys . . . give me a break 
will you.” 

Page 91 Bill Shakespere at Stratford upon 
Avon. 

Please remind Users that during a single user 
Sysgen one should allocate all except 2 job slots 
to XBUF. (Free available memory that was.) 

How does one reset the statistics withot the 
switch register - i.e.. after RDC have nicked it? 

Bye Y for now 
Peter Dick 
Silver Programs, London 
OK, Peter, you get a T-shirt for at least one of the 
above. 


Send letters to: Letter to the RSTS Pro, P.0. Box 
361, Fort Washington. PA 19034. 


LOOK 

at the "tear-out" cards in this issue. 

There's a "HOT to COLD" form for 
rating our articles. Let us know what 
is most and least interesting to you. 


There's a FREE gift for you. Bring in 
new subscribers and collect rewards. 
See "BOUNTY HUNTERS" card. 


RSTS Professional 


Rate Increase 


Effective May 1, 1981 


U.S. (3rd Class) . 

*25 

Canada & U.S. (1st Class) . 

s 35 

Foreign (Air Mail) . 

s 40 


























































Only System Designed Just for PDP-11 Family 

Designed exclusively for DEC'S GNIBGS or MASSBGS 
CPG’s. On the GNIBGS, it’s just one card that plugs into 
any spare SPC slot. On the MASSBGS, four cards plug 
into any spare existing RH70 standard back plane. 

Same Disk Drive as DEC RM02-03, RP06 and 
RM04-05 

We use the same disk manufacturers as does DEC. The 
RM02-03 is the 9762 CDC 80MB and the new RM04-05 
300MB is the CDC 9766. Only the LOGO is different. 

Transparent to All DEC Software, Diagnostics and 
Drivers 

You bet! Gse your existing Software. . . no change 
needed. Runs all DEC's Diagnostics plus has its own. 
Fully emulates DEC disk Drivers. 

Worldwide Installation and Maintenance 
Through Data Systems Services, maintenance and 
installation is provided via CDC for both Drive and 
Controller. We also offer full PDP-11 system support. 
Full Media Compatible? 

That’s right! You can read or write on our drives. Put it 
on DEC’s and it will play or vice versa. TRGLY MEDIA 
COMPATIBLE. 


OEM Discounts Available 


DRM02-3 80MB Slave 
DRJM02 80MB + Controller 
DRWM03 80MB + Controller 
DRJM04-5 300MB Slave 
DRJM04 300MB + Controller 
DRWM05 300MB + Controller 
RJM07 600MB + Controller 
RWM07 600MB + Controller 
RM07 600MB Slave 


DRP06 200MB Slave 

DRWP06 200MB + Controller 

DTCJ45 

DTG77 

DTCI125 

Line Printers 

Memories 

11/34 11/70, VAX 

Systems 



ATA 
YSTEMS 
ERVICES 

(714)770-8024 


23901 Remme Ridge 
El Toro, CA 92630 


POP and DEC are registered trademarks of Digital Equipment Corporation 
















New, from the 
makers of DMAX/16 

Super 
Max 

The single-board, 

16-line ABLE DH/DM" 
that enhances 
any UNIBUS 
system with 
DH-performance 
at DZ-prices. 

Two years ago, we broke new ground with our 
DMAX/16”, the original alternative to the DEC 
DH11. DMAX cut the space requirements from 
nine slots to three and became an immediate 
worldwide success. Now we’ve come up 
with something even better. This time it’s 
ABLE DH/DM ", an alternative that 
achieves the optimum cluster size -16 
lines with modem control on a single 
board. You can compare price, or you can 
compare throughput. Either way, ABLE DH/DM ’ 
beats everything in its class. No one else comes close. 

The ABLE DH/DM” is today’s answer to VAX 
system needs for DMA communications multi¬ 
plexing and serves all standard UNIBUS systems 
equally well. Each 16-line ABLE DH/DM installs 
in any standard hex-width slot at only one unit bus 
load and is DH11 compatible to the diagnostic level. 
Just plug it in and see it run - up to 19.2K baud 
using only half the UNIBUS bandwidth of a 
DEC DH11. 

Key ABLE DH/DM " features include on-board 
diagnostics with LED display, modem control on 

all lines, improved 
on-board silo depth 
and variable 
PROM set for 
proprietary OEM 
applications. 

Keep up with 


ABLE and optimize your VAX, PDP-11 or System 20. 
Write or call today for details on our full line of 
UNIBUS-compatible special-memory, general- 
purpose and data-communications products. 


the computer experts 

ABLE COMPUTER, 1751 Langley Avenue, Irvine, 

California 92714. (714) 979-7030. TWX 910-595-1729 ACT IRIN. 

ABLE COMPUTER-EUROPE, 74/76 Northbrook Street, 
Newbury, Berkshire, England RG13 1AE. (0635) 32125. 

TELEX 848507 HJULPHG. 








The Whole Truth 
About PDP-11 Word Processing. 



HYPHENATION 


PROPORTIONAL 

SPACING 


INDEXING 


USER 

DEFINED KEYS 


SPELLING ERROR 
DETECTION 


TABLE OF 
CONTENTS 


FOOTNOTING 


LIST 

PROCESSING 


When you explore word processing systems, 
you’ll find a number of systems that offer part of 
the package. And frankly, if you’re only looking 
for text editing, almost any system will do. 

But if you’re looking for full word processing 
capabilities, you should insist on a system that can 
handle all of the tough tasks you’ll encounter. 

For starters, a good system will have list pro¬ 
cessing, the vital function that generates corres¬ 
pondence, reports, even statistical analyses. It 
should have user defined keys to simplify repetitive 
operations. 

And a good system can handle the details. Like 
spelling error detection, automatic renumbering 
of footnotes, tables of contents and indexes. And 
proportional spacing and hyphenation for profes¬ 


sional looking documents. 

A good system can be shared. It should be able 
to support up to fifty terminals. And it must be 
backed up by successful installations and a strong 
service team. 

After you’ve examined the options, we think 
you’ll select WORD-11, the only system with all 
the sophisticated features you could want. 

For the details, please call Data Processing 
Design Inc., Corporate Office; 181 W. Orange- 
thorpe Ave., Suite F, Placentia, CA 92670. (714) 
9934160. Telex 182-278. New York Office: 420 
Lexington, Suite 647, New York, NY 10170. 

(212) 687-0104. 

Data Processing Design, Inc. 



Overseas Distributors: Management Information Services PTY. LTD. Jenson LTD. Systime LTD. Network Computer Services PTY. LTD. 

Melbourne, Australia Bristol, England Leeds, England Sydney, Australia 



